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t.O GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A PDP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TSV05 MAGTAPE SUBSfSTEM WHILE CONNECTED TO A PDP-U//23 SYSTEM 
(0 BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE, THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THF. AERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 
ON CERTAIN FUNCTIONS. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT, APT, SLIDE ANO PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, RE^ER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RINTIME SERVICED IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

POP- 11/23 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
C28K USEABLE AND 4K RESERVED FOR I/O PAGE) 
TSV05 MAGTAPE SUBSYSTEM (DRIVE ANO CONTROLLER) 

CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER /MONITOR (XXDPO 

1.3 RELATED DOCUMENTS ANO STANOARDS 

DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. CHQUS XXDP* USERS GUIDE j DOCUMENT NUMBER AC F348E MC 
DATE: 14 JULY 1980. 

2. TSV05 TRANSPORT SUBSYSTEM USERS GUIDE i DOCUMENT NUMBER EK - TSV05-UG -001 
DATE j AUGUST 1982 

3. TSV05 TRANSPORT SUBSYSTEM TECHhICAl MANUAL j DOCUMENT NUMBER F.K-TSV05 TM-001 
DATE: AUGUST 1982 

4. TSV05 TRANSPORT SUBSYSTEM INSTAUATION MANUAL | DOCUMENT NUMBER EK -T5VQ5-XN-Q01 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARO PREREQUISITES 

F< ACTIONAL POP li/.M CENTRAl PROCESSOR ANO MfcMURl 

MJNCTIONAt CONSOLE TERMINAL 

FUNCTIONAL UlftNUAtONt DIAGNOSTIC bUPtHVUOH 
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FUNCTIONAL DIAGNOSTIC LOADER/MONITOR CXXOPO 

1.5 ASSUMPTIONS 

AIL HARDWARE EXCEPT THE HAROWARE UNO£ R TEST IS ASSUMED TO WORK 

PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPF dEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 

Or TAPE. 

CVTSAA HAS RUN SUCE3SFULLY. 

2.0 OPERATING INSTRUCTIONS 

T HIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FO? DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANDS 

THERE ARE ELEVEN I EGA' COMMANDS TOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPER VISOR). THIS SECTION LISTS THE COMMANDS ANO GIVES A VERY 
BRIEF DESCRIPTION nr .'HEM. THE XXDP» USER'S MANUAL HAS MORc DETAILS. 

COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC ) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP* MONITOR (XXDP* OPERATION ONLY?) 

ADO ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

By THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF All FLAGS (SFE SEC V ION i_\3) 

/FLAGS CLEAR ALL FLAGS ( Stt SECTION 2.3) 

A COMMAND CAN BE RErJGNIZED BY THF FIRST THttEE CHARACTERS, SO 
YOU MAY, FOR EXAHPU, TYPE "STA" INSTEAD 0? "START", 

2.1.1 OPERATOR COMMANDS 



THE TSV05 DIAGNOSTIC IS A POP 11 V3 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING ANO RIWT IMF. INSTRUCTIONS CAN BF PErF.RENCE.D IN THE 

CHQUS XXDP* USERS GUIDE .DOCUMENT NUMBER AC-P348E-MC* THE USE.R LNTRT IS IN QUOTES* 



BOOT THE DIAGNOSTIC MEDIA 



,W VTSB?? 

DIAG. RUN UMi SERVICES fit Y D* APR 7* 
CVT5B-A-0 
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StQ 005 



♦♦♦♦TSV05 LOGIC 
UNIT IS TSV05 

>DR 



DIAGNOSTIC**** 



2.2 



SWITCHES 



."HERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION 
THESE SWITCHES ARE APPENOED TO THE LEGAL COMMANDS, ALL OF THE LEGAL 
SWITCHES ARE TABU ATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW. A DECIMAL NUMBER IS DESIGNATED BY "DDDDD". 

SWITCH EFFECT 

/TESTS:LIST 

/PASS; DDDDD 
/FLAGS:FLGS 

/EOP:DDDDU 

/UNITS:LIST 

EXAMPLE OF SWITCH USAGE: 



EXECUTE ONLY THOS c _ TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF T«=ST 
NUMBERS, FOR EXAMPLE - /TESTS: 1 :5 : 7 10 . 
THIS LIST WILL CAUSE TESTS 1.5.?. 8.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE Rc*l. 
EXECUTE DDDDD PASSES (DDDDD • 1 TO 64000) 
SET SPECIFIED FLAGS, FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

REPORT ENO OF PASS MESSAGE AFTER EVERY 
DDOOO PASSES ONLY. (DODOD • 1 TO 640OO) 
TEST/ADD/DRCP ONLt THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE /UNI TS :0: 5: 10 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS - 0-63) 



12 



START/TESTS: 1 -5/PASS: 1000/EOP : 100 

THE EFFECT Of THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES ANO 3) THE END OF 
PASS MESSAGES HILL BE PRINTED AFTER EACH 100 PASSES ONLY, A 
SWITCH CAN BE WECOGNI/ED t'r THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE "/ TE? : 1 -5 " INSTEAD OF "/TESTS : 1 -V . 

CAN 3F USED 8* EACM 



BELOW IS 


A TABLE 


THAT 


SPECIFIES 


WHICH 


SWITCHES 


COMMAND. 














TESTS 
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PASS 
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FLAGS 
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START 
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X 


;< 


X 




PROCEED 






X 






D^OP 










.X 


ADD 










X 


PRINT 












D1SPI *i 










X 


FLAGS 












/Ft AGS 












f KIT 
















*-'LAGi 



USER DOCUMENTATION 



(il 



MACRO MH1S 06 FEB-84 17:14 



SEQ 006 



FLAGS ARE USED TO SF T UP CERTAIN OPERATIO»,AL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STMWVUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE /FLAGS COMMAND MAY A. SO BE USED TO CLEAR 
ALE FLAGS, WITH THE cXCEPTION OF THE START AND 2FLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGSj THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



Ft AG 

HOF 

LOfc 

UR* 

I8R* 



IXF* 

PR I 
PNT 

BOl: 

UAM 

ISR 



I OR 
ADR 
LOT 



EFFECT 



HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOOP ON ER";OR 

INHIBIT ALL ERROR REPORTS 

INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAIN 1 , 

ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY ^RINTX MACRO'S) 

DIRECT MESSAGES TO LINE PRINTER 

PRINT TEST NUMBER AS TEST EXECUTES 

"BELL" ON ERROR 

UNATTENOED hOOE (NO MANUAL INTERVENTION) 

INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 

INHIBIT PROGRAM DROPPING OF UNITS 

EXECUTE AUTOOROP CODE 

LOOP ON TEST 



♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE TK XXDP* USER'S MANUAL FOR 
SPECIFY MORE THAN JNfc FLAG WITH 
TO CAUSE HIE PROGRAM TO LOOP ON 
AND TYPE A "BEL t " ON FRROR. YOU 



MORE DETAILS ON FLAGS. rOU MAr 
THE FLAG SWITCH. FOR EXAMPLE, 
ERROR, INHIBIT Eit^OR REPORTS 
MAY USE THE FOLLOWING STRING: 



/FLAGS:LOEjIERjBOE 



?.A HARDWARE QUESTIONS 

WHEN .1 DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USfcO FOR HARDWARE INFORMATION Bt TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER ' Y " ^F TER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP» USER'S MANUAL). WHEN YOU ANSWER THIS 
GL£S r iON Ui~H A "Y". THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
0* UNIT> (IN DECIMAL ). 



AF HM INITIAL 
SL^&RVISOR). 



STARi TNG OF 
THE PROGRAM 



THE. PROGRAM (START COMMAND TC THF DIAGNOSTIC 
. UU.L ISSUE. JHt "CHANIif MW?" QUESTION TQ ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED tUt THE QPtRATOR), 
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SEQ 007 



ON A "N" (NO) 
RUN USING THE 



RESPONSE TO THE "CHANGE HU?" QUESTION, THE DIAGNOSTIC 
DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS 



WILL 

AND VECTOR ARE 



TSBA/TSDB - 172520, VECTOR • 224 



ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE T E3TED. A 
VALUE., IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES TH/U A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)*' INOICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INOICATES THAT A LOGICAL RESPONSE IS TO BE MADE; 
"Y" FOR YES, "N** FOR NO. 



* UNITS (D) ? 



UNIT 

DEVICE ADDRESS 



CENTER THE NL^BER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED* 



CO) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER* 



VECTOR CO) 224 ? 



<ENTER ADDRESS OF INTERRUPT 
VECTO«> 



THE ADDRESS ANO VECTOR QUESTIONS WILL BE ASKED FOR EACH OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION. 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR 
SELECTED FOR TESTING AS FOLLOWS: 
UP TO 4 T5V05 CONTROLLERS PER 11/23 ANO UP TO 2 DRIVES PER 

2.5 SOFTWARE QUESTIONS 



THE NUMBER OF 
LOGICAL UNIT 
UNITS CAN BE 

CONTROLLER 



AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK F OR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ? ■' 
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 



" i 
IN 



THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE" DESCRIBED 



THE NEXT PARAGRAPH(S), 



THE FOLLOWING QUESTIONS ARE ASKED 
TH£l ALLOW FLEXIBILITY IN THE WAY 



ON A START. RESTART, 
THE PROGRAM BEHAVES, 



OR CONTINUE 



CHANGE SW (L) ? 



< T tPF t ro 
QUE ST IONS 



INHIBIT ITERATIONS <X> N 1 



CAUSE THE FOLLOWING 
TO BE ASKED* 

.TiPE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TQ 
RUN AS QUICKLY AS POSSIBLE* 
ONLr QUICK RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.* 
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2.6 EXTENDED P- TABLE DIALOGUE 

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS T/ 81 E IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANS-JERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOO, SUPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNTTS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAI CAN VARY AMONG UNITS CALLED THE 
Q -FACTOR. THIS Q FACTOR MAY RE OR 1, BELOW IS A SIMPLE WAY 
TO 8UILD A TABLE FOR ONE XYll WITH EIGHT UNITS. 

* UNITS CD) ? 8<CR> 

UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SJ6-DEVICE (0) ? O'CR* 
Q-FACTOR (0) ? KCR* 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE 9 (0) ? t.<CR> 
Q-FACTOR (0) 1 ? CR> 

UNIT 3 

CSR ADDRESS CO) ? 160000<C«> 
SUB-DEVICE o (0) ? 2<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 5<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000' CR- 
SUB DEVICE * CO) ? 4<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 6 

CSR ADC^ESS CO) ? 160000<CR> 
SUB DEVICE (0) ? S<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 7 

CSR ADDRESS (0) > 160000<CR> 

SUB DEVICE o CO) ? b'Ck* 

Q FACTOR (0 N ? 1<CR> 

UNIT 8 

CSR AQCRESS (01 ifcGQQU<CR> 
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SUB -DEVICE CO) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 

NOTICE THAT THE DEFAULT VALUE FOR THE ft FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARl SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

4 UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB DEVICE CO) ? 0.1<CR> 
Q-J-ACTOR CO) ? 1,0<CR> 

UNTT 3 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE * CO) ? 2-5<CR> 
Q-FACTOR CO) ? 0<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE * CO) ? 6,7<CR> 
Q-FACTOR CO) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANf 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SU8 DEVICES AND Q-FACTORS WERE SPECIFIEO. THE 
SERVICES ASSUME THAT THE CSR ADORESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECONO PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3. 4 ANO 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNOAR> , ) THE CSR ADDRESSES AND Q FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 ANO RESPECTIVELY 
SINCE TH£Y WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

* UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) .' I60000<CR> 
SUB OEVICF o CO) ? /<CR> 
Q-FACTOR CO) ? O, 1 ,0, , , ,1 , 1<CR > 
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SEQ 010 



AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES ("COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME. SERVICES TO REPEAT THE LAST REPLY, 

2.7 QUICK START-UP PROCEDURE CXXDPO 

TO START-UP THIS PROGRAM; 

1. BOOT XXDPf 

2. GIVE THE DATE AND ANSWER THE LSI ANO SOHZ C IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "5TART" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING I 'LY THE 
DEFAULTS FOR FLAGS ANO SOFTWARE PARAMETERS. THESd DEFAULTS 
AKE DESCRIBED IN SECTIONS 2,3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED By 
A DIAGNOSTIC: GENERAL, BASIC ANO EXTENOED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "IER" FLAG 13 SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC;XXXXXX 
ERRCR MESSAGE 

.WHERE} NAME • DIAGNOSTIC NAME 

TYP^ - ERROR TYPE (SYS FATAL, OEV FATAL, HARD OR SOFT) 

NUMBER • ERROR NUMBER 

UNIT NUMBER ■ - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER - TEST ANO SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAl 
INFORMATION ABOUT THE ERROR. THESE A.°E ALWAYS PRINTED UNLESS 
THE "IER' 1 OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER". "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3) 
THESE MESSAGES ARE PRINTED AFTER THE ASjOCIATCD GENERAL ERROR 
MESSAliL AMP ANY ASSOCIATED BASIC ERROR MESSAGES. 
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SEG Oil 



5.2 SPECIFIC ERROR MESSAGES 

B c .LOU ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 



REPRESENTS DIFFERENT TYPES 



ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR S T \TUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTIC < AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 

TST: 016 FIFO EXERCISER TEST 

CVTSB HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 

FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNALS IN WORD 08: - DESIGNATOR <BIT 0> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2 14> IIDENT<11> IH€R <8> I0NL<5> IFBY<1> 
IRESV1<15> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN WORD 09: 
DATMIS<7> 1LW<6> 0UTRDY<5> INRDY<4> 
MESSAGE BUFFER ADDRESS - 047352 
MESSAGE BUFFER CONTENTS: 
WORD 00 EXPD: 100020 RECV: 100020 

RECV: 000012 
RECV- /OOOOO 
RECV: 000010 
RECV: 000000 
RECV: 000000 
RECV: OOOOOO 



WORD 01 EXPD: 
WORD 02 EXPD: 
WORD 03 EXPD: 
WORD 04 EXPD: 
WORD 05 EXPD: 
WORD 06 EXPD: 
WORD »7 EXPD: 
WORD w r :XPD: 
WORU EXPD: 



0OvX)12 
OOOOOO 
C00010 
OOOOOO 
OOCOOO 
OOOOOO 
OOOOOO 
070217 
000074 



RECV: OOOOOO 
RECV: 070217 
RECV: 000034 



XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 
XOR: 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
000040 



ERROR hfESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED UHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 



CVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC 
TSSR NOT CORRECT ArTER SPACE RECORDS COMMAND 
TSSR - 100214 



026202 



TSSR BITS SET: SC 
TERMINATION CLASS 



PACKET 
PACKET 
PACKET 
PACKET 
PACKET 



ADDRESS 
WCdD 
WORD 
WORD 
WORD 



SSR 

CODE - 
026420 
140010 
000010 
OOOOOO 
000024 



UNRECOVERABLE ERROR 
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ERROR MESSAGE EXAMPLE 3 

THIS 7RR0? SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 

CVTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC; 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV ; 00OU2 XQR ; 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIV'i : N ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC UAS STARTED, 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-U/23) 

DR>STA/FLAjPNT:HOE:UAM 

UNITS (D) ? 1 

OMIT 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR CO) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

1HE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS THREE 
SWITCKES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" , "HALT ON 
TERROR" AND "RUN IN UNATTENDED MODE", 

NOTE -THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10 12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 

TST: OOi INITIALIZE « TEST 

TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 

TST: 003 DMA MEMORY ADDRESSING TEST 

TST: 004 RAM EXERCISER TEST 

TST: 005 FIFO EXERCISER TEST 

TST: 006 STATIC TRANSPORT BUS CHECK 

TST: 007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 

TST: 008 READ/WRITE DATA PARITY Cut CK TEST 

TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 

T5T: 010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 

TST: Oil STANC ALONE CONF IGURAUQN TYPEOUT NOT EXECUTED TEST 

TST? 042 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 



Nl 
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ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE "/PASS!" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW . TMESF FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 
PROCESSOR WITH A LA-34 CONSOLE, 

THE PROGRAM RUNS IN TWO MODES, NO ITERATIONS ANO DEFAULT MODE. IN THE 

NO ITERATIONS MODE, EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 

DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED By 

THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 

TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 



1 


15 


50 


35 


t- 


1 


6 


5 


3 


1 


1 





4 


110 


540 


4 30 


5 


1 


10 


9 


6 


10 


120 


110 


7 


1 


3 


2 


8 


15 


15 


12 


9 


17 


17 


13 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 

Q.V. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 3 r j SECONDS 

5,0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STACPT) COMMAND. 
THE SUPERVISOR REQUESTS THE FOLLOWING P- TABLES PARAMETER 
CHANGES: 

CHANGE HW CD ? 

i> UNITS (D) ? <ENTER 1HI NUMBER Of M7196 CONTROLLERS 

PRESENT TO BE TESTED> 

UNI T 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDKF SS OF THE. 

TSBA/TSOB REGi'ST(-R> 

VECTOR CO) 224 ? <ENTE». ADDRESS OF INTERRUPT 

VECTOR* 

THE ADDRESS AND VECTOR QUESTIONS WILL QE A&CC **'0« tACM QK ih£ NUMBfcK <>' 
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UNITS (CONTROLLERS) SPECIFIED IN ThC ■"" '•NITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT t. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING, 

IN ADDITION, ON A START, RESTART OR CONTINUE 71-. SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PaTtMETERS, AS 
FOLLOWS? 

CHANGE SW CD ? 



6,0 TEST SUMMARIES 

TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 

TEST DESCRIPTION: 

THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMANO 

INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 

THE COMMANO, MESSAGE ANO CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTROLLER RAM CORRECTLY. 

TEST £: BASIC WRITE SUBSYSTEM MEMORY COMMANO 

TMIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMANO WITH A 
BSELO SELECT COOE OF (NO-OP) EXECUTES CORRECTLY, IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON ZERO 
MOOE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMANO DECODING AND HANDLING SEQUENCES. 

TEST 3: DMA MEMORY ADDRESSING 

THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS ANO 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED Et THE 
DIAGNOSTIC AND DIAGNOSTIC SUPERVISOR COOE) FOR BOTH REAOING (DATI) 
ANO WRITING CDATO). VERIFIED ARE THE LSI-11 BUS DRIVERS FOR ALL 
AVAILABLE ADDRESS LINES, UP TO THIS POINT ONLY 16 BITS HAVE BEEN 
USED FOR DMA TRANSFERS. 

CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES 
ARE ONLr CHECKED WHEN RUNNING ON A U/pSB SYSTEM WITH MORE THAN 
128K WORDS OF MEMORtf 



TEST 4; RAM EXERCISER TEST 
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SEQ 015 



THIS 1EST USES THE READ AND WRITE RAM (BOTH SINGLE ANO 256 
LOCATIONS) SELECT COOES Of THE WRITE SUBSYSTEM MEMORY COMMAND 
TO EXERCISE T^ CONTROLLER'S RAM MEMORY ANO DMA LOGIC 

TEST 5} EXTENDED FEATURES SWITCH AND TIMERS A,B 
TEST DESCHIPTION; 

THIS TEST VERIFIfcS THE INVERT EXTENOED FEATURES FUNCTION 
CAN LOGICALLY INVERT THE EXTENOED FEATURES SWITCH AND 
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY, 

TEST 6: FIFO EXERCISER 

TEST DESCRIPTION: 

THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND 
CONTROL LOGIC. 

TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 

TEST DESCRIPTION: 

WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 

DO WRITE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH 

IF EXTENDED FEATURES HARDWARE SWITCH CLEAR THEN: 

DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENOED FEATURES 
DO WRITE CHARACTERISTICS *Q SELECT RESERVED UNIT 7 
DO A WRITE SUBSYSTEM READ STATUS 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 



TEST 8; TRANSPORT BUS INTERFACE LOOPBACK TEST 

TEST DESCRIPTION: 

THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
DRIVERS, RECEIVERS, ANO SIGNAL LOOPBACK LOGIC. NOTE 
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS. 

TEST 9; READ/WRITE DATA PARITY TEST 

TEST DESCRIPTION: 

THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR 
AND THE READ DATA PARITY CHECKER OPERATE PROPERLY. THE 
TRANSPORT BUS SIGNAL LOOPBACK MODE IS ENABLED ANO A 
SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS 
WRITE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO 
WRITE DATA TO ANO FROM THE FIFO IN LOOPBACK MODt , 
THE PROGRAM THEN CHECKS TO INSLRE A READ DATA PARITY 
ERROR OCCURRtP. 
A RESET FIFO IS QQRt AND THfc READ DATA PARITY 



D 
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ERROR BIT IS AGAIN TESTED TO INSURE IT CLEARED. 
FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE 
ANO IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 
MODE WITHOUT SETTING READ DATA PARITY ERROR, 

TEST 10; MANUAL INTERVENTION 

THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS ANO FUNCTIONS OF 
THE. SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE, WHEN 
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 
SELECTION CODES AND SUBROUTINES ARE: 

CODE ROUTINE 

HELP, PRINTS THIS MENU, 

1 TURN ON ALL M7196 LED INDICATORS 

2 TURN OFF ALL M7196 LED INDICATORS 

3 OFFLINE/ONLINE ATTENTION TEST 

4 WRITE-PROTECT TEST 

5 PRINT EXTENDED TRANSPORT STATUS 

6 EXIT (RETURN TO SUPERVISOR) 

TEST 11: CONFIGURATION TYPEOUT 

THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 

THE CONFIGURE T-^ OF THE M7196 MODULE AND T5V05 SUBSYSTEM. SPECIFICALLY, 

THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENOED FEATURES DISABLED), 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196* ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED). 

3,0 MICROCODE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT COOE ANO STATE ( ONL INE /OFFLINE , WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT XT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE, 

TEST 12 j SCOPE LOOPS 

THIS 15 A STANDALONE. ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THf NORMAL 
■'LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 



E 
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SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. TUt HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED F v THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE 'jXP SWITCHES), THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 

CODE SCOPE LOOP 

HELP, PRINT THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR READ ACCESS 

S INITIALIZE CTSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE ACCESS 

5 TSDB LOW BYTE WRITE ACCESS 

6 TSDB MAINTENANCE -MOOE WORD WRITE ACCESS 

7 TSD6X (TSSR HIGH BYTE) WRITE ACCESS 

(EXTENDED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

8 EXIT (RETURN TO SUPERVISOR) 

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 

THE OPERATOR FOR THE DATA TO BE WRITTEN, LIMITS ON THE OATA PATTENS 

ARE 0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP DACK TO MENU LEVEL 

7,0 MAINTENANCE HISTORY 

REVISION A - MARCH 1982 

REVISION B - APRIL. 1983 

MODIFIED THE DIAGNOSTIC TO HANDLE U/P.ifK'S 
WITH MORE THAN 256KB OF MEMORt . CHANGED 
TEST 3 SUBTEST 3 SO IT WON'T TRY TO CREATE 
NON-EXISTANT MEMORY ADDRESS CNXM), 
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F2 



SEQ 018 



4 






10 






11 
1,? 
1? 


000000 








W 


000000 




20 




002000 


21 


002000 




T "> 


002000 




CC. 

^5 






24 






25 






?.e 






27 






28 


002000 




29 


002000 
002000 






002000 


103 




002001 


126 




002002 


124 




002003 


123 




002004 


102 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


102 




002011 






002011 


060 




002012 






002012 


000000 




002014 






002014 


001217 




002016 






002016 


101362 




002020 






0020^0 


101514 




002022 






002022 


002156 




002024 






002024 


002166 




002026 






002026 


102004 




002030 






002030 


000000 




002032 






00203? 


000000 




002034 






002034 


000000 




002036 






002036 


000000 




002040 






002040 


00^1^4 




QQ2Q42 





TSV2: : 



.TITLE 


TSV2 - PROGRAM HEADER 


.SBTTL 


PROGRAM HEADER 


.MCALL 


SVC 


SVC 


j INI 


.ENABLE 


LC 


.hI 1ST 


BEX.CND 


.FNABL 


ABS.AMA 


. -2000 




BGNMOD 


TSV2 



j INITIALIZE SUPERVISOR MACROS 



I ♦♦ 



THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR, 



LSNAME; 



L*REV: 
LiDEPO 
LSUNIT 
LITIML 
L$HPCP 
LiSPCP 
LIHPTP 
L$SPTP 
LiLADP 
L$STA: 
L*C0: : 
LIDTYP 
LJAF :"• 
L$DTP: 
L5PRIU 



POINTER BGN^W.BGNSFT^BGNAU.BGNDU.BGNRPT 
HEADER CVTSB»B,0,655.,0 

{DIAGNOSTIC NAME 
.ASCII /Q/ 
.ASCII /V/ 
.ASCII /T/ 
.ASCII /S/ 
.ASCII /B/ 
.BYTE 
.BYTE *> 
.BYTE 



.ASCII /B/ 
.ASCII /O/ 
.WORD 



^REVISION LEVEL 
{0 

I NUMBER OF UNITS 
{LONGEST TEST TIME 
{POINTER TO H.W, QUES. 
{POINTER TO S.W. QUES. 
jPIR. TO DEF, H.W. PTABLE 
;PTR, TO S.W. PTABLE 
jDIAG, END ADDRESS 
{RESERVED FOR APT STATS 

iDIAGNOSTIC TYPE 
;APT EXPANSION 



.UORD 655. 

.WORD L$HARD 

.WORD L*SOFT 

.UORD L$HW 

.UORD I SSW 

.WORD I U.AST 

. WORD 

. UORD 

. WORD 

. WORD 

{PTR. TO DISPATCH TABLE 

.WORD L*DISPATCH 

{DIAGNOSTIC RUN PRIORITY 



G2 



TSV2 - PROGRAM HEADER 
PROGRAM HEADER 
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SEQ 019 



002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
QQ2120 



000000 

000000 

000000 

005 
003 

000000 
000000 

000000 

003402 

022664 

000000 

000000 

022352 

022450 

000000 

003410 

104035 

000000 

021556 

022636 

022556 

021546 

000000 

oooooo 

QQQQQO 



LJENVI 
L$EXP1 
LJMREV 

L$EEj : 

l*SPC: 

L$DEVP 
L$REPP 
L*EXP4 
L*EXP5 

L$AUT 

L$DUT 

LILUN 

L$DESP 

L$LOAD 

LiETP 

L$ICP 

L*CCP 

LiACP 

L$PRT 

LITEST 

LJDLY: 

UHIME 



.WORD 

.WORD 

.WORD 

.BYTE 
.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

♦ WORD 



l POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 





I FLAGS DESCRIBE HOW IT WAS SETUP 


jEXPANSION WORD 


j SVC REV AND EDIT 
CIREVISION 
CREDIT 

iDIAG, EVENT FLAGS 





LIDVTYP 

LiRPT 





L$AU 

L*DU 



LIDESC 

EtLOAD 



LSINIT 

LICLEAN 

L$AUTO 

LiPROT 









;PTR. TO ADD UNIT CODE. 

jPTR. TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

{POINTER TO DIAG. DESCRIPTION 

{GENERATE SPECIAL AUTOLOAD EMT 

{POINTER TO ERRTBl. 

iPTR. TO INIT CODE 

{PTR. TO CLEAN-UP CODE 

;PTR. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

{TEST NUMBER 

{DELAY COUNT 

{PTR, TO HIGH MEM 



2 



TSVJ 


- PROGRAM 


HEADER 


DISPATCH TABLE 






31 






32 






33 






34 






35 






3b 






37 






38 002122 






002122 


000014 




002124 






002124 


023446 




002126 


024426 




002130 


026420 




002132 


032014 




002134 


034604 




002136 


040376 




002140 


050510 




002142 


051770 




002144 


062616 




002146 


066666 




002150 


074530 




002152 


077702 
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SEQ 020 



.SBTTL DISPATCH TABLE 



♦ ♦ 



THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



DISPATCH I. 1 


.WORD 


1.' 


LSDISPATCH: : 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


.UORD 


T8 


,WOR0 


T9 


.WORD 


T10 


.WORD 


Til 


.WORD 


T12 



12 



TSV2 - PROGRAM HEADER MACRO MU13 
DEFAULT HARDWARE P- TABLE 
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SEQ 021 



40 
41 
42 
43 
44 
45 
46 
47 



48 
49 

50 
51 

5a 



.SBTTL DEFAULT HARDWARE P- TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN- TIME P -TABLE. 



002154 
002154 
002156 
002156 

002156 
002160 
002162 
002164 
002164 



000003 



172520 
000224 
000200 



LiHW: : 
DFPTBL: 



BGNHW 
.WORD 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000-l.*HW/2 



172520 

224 

PRI04 



I DEFAULT HARD-P- TABLE 



i 1ST (OF 2) REGISTERS 
\ INTERRUPT VECTOR 
I INTERRUPT PRIORITY, 



L 10000; 



J 2 



TSV2 - PROGRAM 


HEADER 


SOFTWARE 


P- TABLE 


54 






55 






5b 






57 






58 






59 






60 


002164 






002164 


000004 




002166 






002166 




t»l 






6? 


002166 


000000 


65 


002170 


000000 


64 






65 






66 


0021/2 


000017 


67 


002174 


000310 


68 


002176 
002176 




6^> 
70 


002176 
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SEQ 022 



,SBTTL SOFTWARE P-TABLE 



I ♦♦ 



THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



1 -■ 



BGNSW 
.WORD 

L$SW:: 

SFPTBL: : 


SFPTBL 
LlOOOl 


-LSSW/2 


TRANSTST: : 
NOITS; : 


.WORD 

.WORD 






LERRMAX; ; 
GERRMAX: : 

ENDCW 
LlOOOl s 


.WORD 
.WORD 


15. 

200. 



} ENABLE TEST OF TRANSPORTS) IF -1 

i INHIBIT ITERATION OPTION. 

} ... - ITERATE. 

i . ,.NZ » INHIBIT ITERATE. 

j LOCAL (PER TEST) ERROR LIMIT 

I GLOBAL (PER UNIT) ERROR LIMIT 



ENDMOD 



I<2 



TSV3 - GLOB/d. MREAS 
SOFTWARE P- TABLE 



002176 
0021V6 



a 

13 
19 
20 

21 
22 
23 
24 
2S 
26 
27 
28 
32 002176 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
00003 7 
000036 
000035 
000034 



MACRO M1113 06-FEB-84 17; 14 



SEQ 023 



TSV3: j 



.TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 
BIT DIFINITIONS 



I GET STANDARD EQUATES 



BIT15 
BIT14 
BIT13 
BIT12 

BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 

BIT9- 
BIT8- 
BIT7- 
BIT6- 
BIT5- 
BIT4- 
PIT3- 
BIT2- 
BIT1- 
BITO- 
} 



100000 

40000 

200O0 

10000 

4000 

2000 

lOuO 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09 
BIT08 
BIT07 
BIT06 
8IT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 



EVENT FLAG DEFINITIONS 

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START-- 32 

EF. RESTART-- 31 

EF. CONTINUE-- 30 

LF.NEW-- 29 

FF.PWR-- 28 



j START COMMAND WAS ISSUED 
j RESTART COMMANO WAS rSSUED 
j CONTINUE COMMAND WAS ISSUED 
j A NEW PASS HAS BEEN STARTFD 
i A POWER -FAIL/POWER -UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 



TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



MACRO M1113 06-FEB-84 17:14 



L2 



SEQ 024 



33 

34 002176 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
00200C 
004000 
010000 
020000 
040000 
100000 



000250 

177572 

177574 
17 75/6 
172516 



PRI07-- 


340 


PRI06-- 


300 


PRI05-- 


240 


PRI04-- 


200 


PRI03-- 


140 


PRI02-- 


100 


PRI01-- 


40 


PRI00-- 





; OPERATOR FLAG BITS 


EVL-- 


4 


LOT-- 


10 


ADR-- 


20 


IDU-- 


40 


ISR-- 


100 


UAM-- 


200 


BOE-- 


400 


PNT-- 


1000 


PRI-- 


2000 


IXE-- 


4000 


I3E-- 


10000 


IER-» 


20000 


LOE-- 


40000 


HOE-- 


100000 




KT11 


.SBTTL 


MEMORY MANAGEMENT DEFINITION 


j*KTll 


VECTOR ADDRESS 


MMVEC- 


250 


j*KTH 


STATUS RECISTER ADDRESSES 


SRO- 


177572 


SR1- 


177574 


SR2- 


177576 


SAS' 


172516 


.IF N6 




;*USER 


"I" PhZB. DESCRIPTOR REGISTERS 


UIPDRO- 


17/60;- 


UIP0R1- 


177<-,02 


UIP0R2- 


177604 


UIPDR3- 


177606 


UIPDR4- 


177610 


UIPDR5- 


177612 


UIP0R6- 


177614 


UIP0R7- 


177616 


.IF NB 




j ♦USER 


»D" PAGE DESCRIPTOR RESISTORS 


UOPORO- 


177620 


U0PDR1- 


17 76.?2 


U0PDR2- 


17 7624 


U0PDR3- 


17 7626 


UOP0R4 - 


17 7630 


U0PDR5- 


177632 


U0PDR6- 


177634 


UDPDR7« 


177636 


.ENDC 





{DEFINE MEMORY MANAGEMENT REGISTERS 



TSV3 - GLOBAL AREAS 
MEMORY MANAGEMENT DEFINI 



M 



M1113 06-FEB-S4 17; 14 



j*USER 

UIPARO- 

UIPAR1- 

UIPAR2- 

UIPAR3- 

UIPAR4- 

UIPAR5- 

UIPAR6- 

UIPAR7- 

.IF NB 

{ *USER 

UOPARO- 

UOPAR1- 

UOPAR2- 

UDPAR3- 

U0PAR4- 

UDPAR5- 

UDPAR6- 

UOPAR7- 

,ENDC 

,ENOC 

.IF NB 

{♦SUPERVISOR 



"I" PAGE 
177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 

"D" PAGE 
177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



M2 



ADDUESS REGISTERS 



SEQ 025 



ADDRESS REGISTERS 



"I" PAGE DESCRIPTOR REGISTERS 



SIPDRO 
SIPDR1 
SIPDR2 

sipdr; 

SIPDR4 
SIPDP5 
SIPDR6 
SIPDR7 
.IF NB 
{♦SUPERVISOR 



172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 



"D" PAGE DESCRIPTOR REGISTERS 



SDPDRO 

SDPDR1 

SDPDR2 

SDPDR3 

SDPDR4 

SDPDR5 

SDPDR6 

SDPDR7 

.ENDC 

{♦SUPERVISOR 



172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 



"I" PAGE ADDRESS REGISTERS 



SIPARO- 172240 

SIPAR1- 172242 

SIPAR2- 172244 

SIPAR3- 172246 

SIPAR4- 172250 

SIPAR5- 172252 

SIPAR6- 172254 

SIPAR7- 172256 
.IF NB 

{♦SUPERVISOR "D 

SDPARO- 172260 

SDPAR1- 172262 

SDPAR2- 172264 

SDPAR3* 172266 



PAGE ADDRESS REGISTERS 



N2 



TSV3 - GLOBAL AREAS MACRO M1113 
MEMORY MANAGEMENT DEFINITIONS 



06-FEB-84 17: 14 



SEQ 026 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
17^342 
172J44 
172346 
172350 
172352 
17? 354 
172356 



SDPAR4- 


172270 


SDPAR5- 


1722/2 


SDPAR6- 


172274 


SDPAR7- 


172276 


.ENDC 




.ENDC 




;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 


KIPDRO- 


172300 


KIP0R1- 


172302 


KIPDR2- 


17230'. 


KIPDR3- 


172306 


|/T P0R4 . 


172310 


KUPDR5- 


172312 


KIPDR6- 


172314 


KIPDR7- 


172316 


.IF N8 




j+KERNEL "D" PAGE 


DESCRIPTOR REGISTERS 


KOPDRO- 


172320 


KDPDP1- 


172322 


KDPDR2- 


172324 


KDPDR3- 


172326 


KDPDR4- 


1723^0 


KDPDR5- 


172332 


KDPDR6- 


172334 


KDP0R7- 


172336 


.ENDC 




{♦KERNEL "I" PAGE ADDRESS REGISTERS 


KIPARO- 


172340 


KIPAR1- 


172342 


KIPAR2- 


172344 


KIPAR3- 


172346 


KIPAR4- 


172350 


KIPAR5- 


172352 


KIPAR6- 


172354 


KIPAR7- 


172356 


.IF NB 




j*KERNEL "D" PAGE ADDRESS REGISTERS 


KDPARO- 


172360 


KDPAR1- 


172362 


KDPAR2- 


172364 


KDPAR3- 


172366 


KDPAR4- 


172370 


KDPAR5- 


172372 


KDPAR6- 


172374 


KDPAR7- 


172376 


. F.NDC 





B3 



TSV3 • GLOBAL AREAS MACRO MU13 06-FE8-84 17iM 
TSV05 REGISTER AND PACKET DEFINITIONS 



SE-Q 02 7 



5 9 




40 




41 




4^ 




45 




44 




4S 


000004 


4b 


00OO60 


4 .' 


177^60 


48 


1 7 7562 


4^ 


177520 


SO 




51 




5J 




55 




54 




S5 


100000 


5b 


040000 


v: 


0200^ 


58 


010000 


5^ 


00*00; 


60 


OOwOl V 


61 


001*00 


6* 1 


000200 


65 


000100 


64 


000060 


65 


000016 


66 




t>7 




68 




6<* 




? 




n 




rs 




'5 




74 


iOOOOO 


; r j 


040000 


76 


020000 


7 7 


010000 


78 


004000 


?4 


002000 


80 


001000 


81 


0OO400 


8^ 


000200 


8 5 


OOOIOO 


84 


000040 


e:> 


000020 


86 


000010 


8/ 


000004 


88 


oocoo,: 


8'* 


0(>X)01 


90 




91 




9, J 




95 




94 




«A 


1Q000Q 



.SBTTL TSV05 REGISTER AND PACKET DEFINITIONS 



I SOME GENERAL EQUATES, 

J 

ERRVEC-- 4 

TTIVEC-- 60 

TTICSR-- 177560 

TTIBFR-- 17 7562 

BDVPCR-- 177520 



l POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
I INTERRUPT VECTOR FOR CONSOLE INPUT 
I BUS ADDRESS OF CONSOLE INPUT 
i CONSOLE INPUT DATA BUFFER 
I BDV11 PAGE CONTROL REGISTER 



iBIT 

i - 



DEFINITIONS FOR TSSR REGISTER 



SC- 

BIE- 

SCE- 

RMR- 

NXM- 

NBA* 

HIAOOR- 

SSR- 

OfL- 

FATERR- 

TERCLS- 

i » 

iBIT DEFINITIONS 
i(XSTO) 

I 



BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BIT10 

BIT9JBITB 

BIT7 

BIT6 

BIT4.»BIT5 

BIT3fBIT2!BITl 



jSPECIAL CONOITION 

I BUS INTERFACE ERROR 

jSANITY CHECK ERROR 

jMOOIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

iNEEO BUFFER ADDRESS 

lEXTENDED ADDRESS BITS 

;SUB SYSTEM READY 

lOFF LINE BIT 

iFAIAL TERMINATION ERROR CODES 

I TERMINATION CODES 



FOR EXTENOED STATUS REGISTER 



XSOTMK. BIT15 

XSORl S- BIT14 

XSOLET- BU15 

XSORLL- BIT12 

XSOWLE- BIT11 

XSONEF. BIT10 

XSOILC- BIT9 

XSOILA- BIT8 

XSOMOT- BIT7 

XSOONL- BIT6 

XSOIE- BIT5 

XSOVCK- BIT4 

XSOPED- BIT 5 

XSOWLK- BH2 

XSOBOT- BIT 1 

XSOEOT- BITO 

iBH DEFINITIONS FQR EXlfNOED STATUS REGISTER \ 
iCXSTl) 



TAPE MARK DETECTED 
RECORD LENGTH SHORT 
LOGICAL END OF TAPE 
RECORD LENGTH LONG 
WRITE LOCK ERROR 
NO* EXECUTABLE FUNCTION 
ILLEGAL COMMAND 
ILLEGAL AOORESS 
TAPE IN MOTION 
TRANSPORT ON LINE 
INTERRUPT ENABLE 
VOLUME CHECK BIT 
PHASE ENCODED DRIVE 
WRITE LOCKED 
BEGINNING Of TAPf 
END OF TAPF 



XUDLI 



OX 115 



(DATA LATE 



C5 



TSV3 GLOBAL 


ARIAS 


T$VQ5 REGISTER 


ANO PAD 


96 


040000 


9 7 


020000 


96 


017375 


99 


000400 


100 


000002 


30V 




>0 ■ 




iO* 




104 




105 




106 


1000O0 


107 


040000 


108 


035400 


109 


002000 


110 


000200 


111 


000100 


11? 


000077 


113 


000007 


114 




115 




lib 




11? 




118 




119 


177400 


120 


000200 


121 


000100 


122 


000040 


123 


000020 


124 


000010 


125 


000006 


126 


000001 


127 




128 




129 




150 




131 




132 


100000 


133 


040000 


134 


020OOO 


135 


017400 


136 


000377 


13 7 




138 




139 




140 




141 




142 




145 




144 


000006 


145 


000006 


146 




14/ 




146 




149 




150 




151 




152 





17:14 



5EQ 028 



XI, SPARE 
XI, COR 
X1.MB7 
Xl.RBP 
Xl.UNC 

iBIT DEFINITIONS FOR EXTENOED STATUS REGISTER 2 
ICXST2) 



l:ti4 ,not used 

bit 13 i correctable data error 

BIT12tBITll*BIT10»BIT9*BIT7*BIT6»BIT5»BIT4»BIT3»BIT?»BIT0 j ALWAYS 

BIT8 jREAD BUS PARITY ERROR 

BIT1 i UNCORRECTABLE DATA OR HARD ERROR 



X2.0PM 

X2.RCE 

X2, SPARE 

X2.WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 



BIT15 jOPERATION IN PROGRESS (TAPE MOVING) 
BIT14 ,RAM CHECKSUM ERROR 

BIT13*BIT12*BIT11»BIT9*BIT8 |NOT USED BY TSV05 (ALWAyS-0) 
BIT10 iWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
BIT7 i IF WRITE CHAR CMD THEN - EXTENOED FEATURES ENABLED 

BIT6 »IF WRITE CHAR CMO THEN • BUFFERING ENABLED 

000077 j IF WRITE CHAR CMO THEN • MICROCODE REVISION LEVEL 
BIT2*BIT1*BIT0 j IF GET STATUS THEN « CURRENTLY SELECTED UNIT NO. 



FOR EXTENOED STATUS REGISTER 3 



jBIT DEFINITIONS 
i(XST3) 

X3.M0E - 177400 

X3. SPARE- BIT7 

X3.0PI - BIT6 

X3.REV • BIT5 

X3.TRF - BIT4 

X3.DCK - BIT3 

X3.M8Z -BIT2»BIT1 

X3,RIB - BITO 

jBIT DEFINITIONS FOR EXTENOED STATUS REGISTER 4 
l(XST4) 



CODE 



iMICRO-DIAGNOSTIC ERROR 

iNOT USED BY TSV05 

I OPERATION INCOMPLETE 

iREVERSE 

I TRANSPORT RESPONSE FAILURE 

jDENSITY CHECK 

iNOT USED ALWAYS 

jREVERSE INTO BOT 



I • 

X4.HSP 

X4,RCE 

X4.TSM 

X4.MBZ 

X4.WRC 



BIT15 jHIGH SPEED 

BIT14 tRETRT COUNT EXCEEDED 

BIT13 j TRANSPORT SPECIAL MODE 

BIU2»BIT11*BIT10»BI19*BIT8 jNOT USED ALWAYS 

000377 jWRITE RETRY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREJ- 
UNREC- 



3*2 
6 



I COMMAND REJECTED 
[UNRECOVERABLE ERROR 



DEVICE REUISTER OFFSETS 



TSV5 - GLOBAL 


AREAS 


TSV05 RFGI5TER 


AND PAD 


153 


000000 


154 


000000 


155 


000001 


156 


000001 


15? 


000002 


158 


000003 


15^ 




160 




161 




i6a 




163 


000003 


164 




165 




166 




167 




168 


000017 


169 


000013 


170 


000012 


171 


000011 


172 


000010 


173 


000006 


174 


000005 


175 


000004 


176 


000001 


177 




178 




179 




180 




181 


100000 


182 


040000 


183 


020000 


184 


010000 


185 


007400 


186 


000200 


187 


000140 


188 


000037 


189 




190 




191 




192 


000000 


193 


000400 


194 


001000 


195 


002000 


196 


002400 


197 




198 




199 




200 




201 


000167 


202 


000200 


203 


000201 


204 


000210 


205 


00021^ 


206 


000234 


20 7 




208 




209 





MACRO 

:t oefin 



BW3 



NS 



D 



06 -FEB 84 17j14 



T5BA-- 

TSDR-- 

TSBAH-- 1 

TS08H-- 1 

TSSR-- 2 

TSSRH-- 3 



5EQ 029 



jTSDB/TSBA REGISTER 

iTSOB/TSBA REGISTER HIGH BYTE 

jTSSR REGISTER 

iTSSR REGISTER HIGH B^TE 



I ► 



TSOB ADDRESS BIT DEFINITIONS 

- BITWBITO jAODRESS BITS 17:16 ARE IN ltO 



A1716 



I * 



COMMAND DEFINITIONS 



P.GETSTAT 


• 17 


iGET STATUS 


P.INIT 


■ 13 


j INITIALIZE 


P. CONTROL 


• 12 


j CONTROL COMMANDS 


P. FORMAT 


• 11 


i FORMAT 


P. POSITION 


• 10 


I POSITION 


P.WRTSU6 


• 6 


iSUBSYSTEM WRITE 


P. WRITE 


• 5 


jWRITE 


P.WRTCHAR 


■ 4 


jWRITE CHARACTERISTICS 


P. RE AD 


• 1 


jREAD 



J ► 



I COMMAND PACKET HEADER WORD BIT DEFINITIONS 



t - 



P.ACK • BIT15 iBUTFER AVAIL FOR CONTROLLER 

P.CVC ■ BIT14 iCLEAR VOLUME CHECK 

P.OPP » BIT13 iREVERSE SEQUENCE Of DATA BITS 

P.SWB • BIT12 iSWAP BYTES IN MEMORY 

P. MODE - BIT11!BIT10!BIT9!BIT8 iEXTENDED COMMANO MODE FIELD 

P.IE • BIT 7 i INTERRUPT ENABLE 

P.FMT- BIT6!BIT5 (PACKET HEADER TYPE (ALWAYS-O) 

P.CMO - 3 7 | MAJOR COMMANO FIELD 



i CONTROL 



COMMANO MODE CODES 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



0*256. 
1*256. 
2*256. 
4*256. 
5*256. 



, RELEASE BUFFER 

jREWINO 

iNO-OP 

jREWINO IMMEDIATE 

I SECURITY ERASE 



INTERRUPT 



J ♦ 



I CONTROLLER RAM DEFINITIONS 



RMCHBEG 

RMCHENO 
RMPKTBEG 
RMPKTEND 
RMMSGBEG 



16 7 
200 
201 
210 
215 



RMMSGEND- 234 

i * 



jCHAHMCTtRISTICS 10 DATA BEGIN RAM ADDRESS 
iCHARACTERISTICS 10 DATA ENO RAM ADDRESS 
.COMMAND PACKET BEGIN RAM ADDRESS 
, COMMANO PACKET ENO RAM ADDRESS 
.MESSAGE BUFFER BEGIN RAM ADDRESS 
j MESSAGE BUFFER END RAM ADDRESS 



jREGISTER DEFINITIONS IN THE MESSAGE BUFFER 



E 



z3 



TSV3 - GLOBAL. AREAS MACRO Mill* 06-FEB-84 17:14 
TSV05 REGISTER AND PACKET DEFINITIONS 



SEQ 030 



510 




ai 




212 




211 


000006 


214 


000010 


215 


000012 


216 


000014 


217 


000016 


218 




219 




220 




221 




222 




223 




224 




225 


000002 


226 


000004 


227 


000006 


228 




229 


000010 


230 




231 




23? 




233 




234 


000000 


235 


000001 


2 36 


000002 


237 


000004 


238 




239 




240 




241 




242 


000000 


243 


000001 


244 


000002 


245 


000003 


246 


000004 


247 


000005 


248 


000006 


249 


000007 


250 


000010 


251 


000011 


252 


000020 


253 


000021 


254 


000022 


255 


00002? 


2S6 


000024 


257 




258 




259 




260 




261 


000200 


262 


000100 


26 1 


000040 


264 


000020 


265 


000010 


266 


000004 



J 



XSTO-- 


6 


XST1-- 


8, 


XST2-- 


10 


XST3-- 


12 


XST4-- 


14 



jEXTENOED 
jEXTENOED 
lEXTENOEO 
jEXTENOED 
jFXTENOED 



STATUS 
STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 

REGISTER 
REGISTER 
REGISTER 
REGISTER 



(WORD 
(WORD 
(WORD 
(WORD 
(WORD 



4) 
5) 
6) 
/) 
8) 



{ » 



{OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 
PKHI 
PKBCNT - 

EXBCNT-10 



{LOW ORDER CHARACTERISTIC DATA POINTER 
I HIGH ORDER CHARACTERISTIC DATA POINTER 
jNUMBER OF BYTES IN DATA PACKET 

{NUMBER OF BYTES IN EXTENDED DATA PACK. 



{DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 



BSELO • 
BSEL1 • 1 
SEL2 ■ 2 
SELDATA - 4 



{BYTE 
{BYTE 1 
;WORD 2 
{WORD 3 



{BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 

i - 

PW.NOP - 

PU. RDRAM - 1 

PW.WTRAM • 2 

PW.RFIFO - 3 

PW.WFIFO - 4 

PW.RDSTAT - 5 

PW.WCTL » 6 

PW.WFMT - 7 

PW.WWISC - 10 

PW.WNPR - 11 

PW.D22 • 20 

PW.D11 - 21 

PW.D13 - 22 

PW.N01311 - 23 

PW.RDEXT - 24 



jBSELl 
t - 



CODES FOR WRITE TAPE 



WC 

WC 
WC 
WC 
WC 



IFAD 

IOTAD 

I1TAD 

I5RESV 

IRF.U 



WCIRWU 



BIT7 
BIT6 
BIT5 
BIT4 
BIT3 
BIT2 



iNO-OP 




{READ RAM 




{WRITE RAM 




{REAO FIFO 




{WRITE FIFO 




{READ STATUS 




{WRITE TAPE CONTROL 




{WRITE TAPE FORMAT 




{WRITE MISCELLANEOUS 




{WRITE NPR CONTROL 




{DO MICROTEST 22 




{DO MICROTEST 11 




{DO MICROTEST 13 




{DISABLE MICROTEST 11 AND 13 


{READ EXT, TAPE STATUS (NOT 


SUPPORTED 


CONTROL 




I IFAD - FORMATTER ADDRESS 




tITADO - TRANSFORT ADDRESS 


BIT 


tITADI TRANSPORT ADDRESS 


BIT 1 


»IRESV5 - RESERVED 05 




I IRF.U ■ REWIND 




jIRWU - REWIND AND UNLOAD 





BY ALL TRANSPORTS 



F3 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB 84 17; 14 
TSV05 REGISTER AND PACKET DEFINITIONS 

WC.IFEN 
WC.IGO 

J ♦ 



267 


000002 


268 


000001 


269 




270 




271 




272 




273 


000200 


274 


000100 


275 


000040 


2 76 


000020 


27? 


000010 


2 78 


000004 


279 


000002 


280 


000001 


281 




282 




283 




284 




285 


000200 


286 


000020 


237 


000010 


288 


000006 


289 


000001 


290 




291 




292 




293 


000000 


294 


000002 


295 


000004 


296 


000006 


297 




298 




299 




300 


000200 


301 


OC '00 


30? 


0' ^0 


303 


00u020 


304 




305 




306 




307 




308 


000200 


309 


000100 


310 


000040 


311 


000020 


312 


OOOOIO 


313 


000004 


314 


000003 


315 


1COOO0 


316 


040000 


317 


020000 


318 


010000 


3 '.9 


004000 


b?.0 


002000 


321 


001000 


32? 


000400 


323 


000200 



BIT1 
BITO 



tIFEN 
j GO 



SEQ 031 



- FORMATTER ENABLE 



jBSELl CODES FOR WRITE FORMAT 



WF.IHISP 

WF.IWRT 

UF , IREV 

WF.IWFM 

WF.IEDIT 

WF.IERASE 

WF.I3RESV 

WF.I4RESV 



3IT7 
BIT6 
BIT5 
8IT4 
BIT3 
BIT2 
BIT1 
3IT0 



jlHlSP 


- HIGH SPEED 


jIWRT 


WRITE 


;IREV 


- REVERSE 


jIWFM 


- WRITE FILE MARK 


lIEDIT 


- EDIT 


jIERASE 


- ERASE 


»IRESV3 


- RESERVED 03 


»IRESV4 


- RESERVED 04 



tBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 


• BIT7 


MS.RSFIFO 


- BIT4 


MS.RSTAPE 


• BIT3 


MS. ATTN 


- BIT2IBIT1 


MS.RSD 


• BITO 



} MS. ATTN SUBCODES 

« - 

MSA. NOP » 0*2 
MS A. VOL - 1*2 
MSA,NRAM< 2*2 
M5A.FR\M = 3*2 



i INVERT SENSE OF EXTENDED FEATURES SWITCH 
iRESET FIFO AND INPUT PARITY ERRORR 
jRESET TAPE STATUS IN 2 FLIP-FLOPS 
lATTENTION TRIGGER FIELD 
;RESET TIMER A,B THEN DELAY TIMES IN SEL2 



jNO-OP (NOTHING TRIGGERED) 
jSIMULATE ON-LINE/OFF-LINE TRANSISTION 
jFOPCE NON-FATAL RAM ERROR (FORCES ERRCODE 
jFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



NP.IR - BIT7 

NP.OUT - BIT6 

NP.LOOP - BIT5 

NP.WRP - BIT4 

! READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



S2.DIM 
S2.ILW 

S2.0UTRDY 
S2.INRDY 
S2.ATIMR 
S2.BTIMR 
S2.UN0EF 
Sl.PARIN 
S1.I2RESV 
S1.I1RESV 
IEOT 
IIDENT 
ICER 
IFMK 
IHER 



INTERRUPT REQUEST (0-1 TRANSITION) 

;TAPE DATA DIRECTION OUT (0» IN) 

jENABLE TRANSPORT LOOPBACK 

;WRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



SI 

SI 
SI 
SI 

si. 

SO.ISPEED 



- BIT? 


WORD 09 BYTE 


2 


DATA IN MISS 




• BIT6 






ILW H 




- BIT5 






OUT RDt H 




» BIT4 






IN ROY H 




• BITS 






TIMER A FLAG 


H 


- BIT2 






TIMER B FLAG 


H 


- BITWBITO 


(UNDEFINED) 








- BIT1S 


WORD 08 BYTE 


1 


PARIN H 




- BIT14 






IRESV2 




- BIT13 






IRESV1 




- BIT12 






IEOT L 




• BITU 






IIOENT H 




- BIT10 






ICER H 




- BIT9 






IFMK H 




• Bire 






IHfR H 




- BIT? 


.WORD 08 BYTE 





ISPEED H 
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324 

325 

326 

32? 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

336 

339 

340 

341 

342 

34 3 

344 

345 

346 

34 7 

346 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

3 70 

371 

3/2 

373 

3 74 

3. '5 

3/6 

3 / <' 

3/M 

3 /■■> 

380 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



SO.IRDY 
5O.I0NL 
SO.ILDP 
SO.IDBY 
SO.IRWO 
SO.IFBY 
SO.IFPT 



.SBTTL 





G3 


5EQ 032 


- BIT6 




} IRDY L 


- BIT5 




I IONL L 


- BIT4 




j ILDP L 


- BIT3 




I IDBY L 


- BIT2 




j IRWD L 


- BIT1 




j IFBY L 


• BITO 




» IFPT L 


SPECIAL 


MACROS 


AND OPDEFS. 



j READ TSSR 

iIS FORCER SET? (L£AVE C BIT ALONE) 
jBR IF YES 



SAVE GENERAL REGS 1 TO 5 



.MACRO SAVREG 
JSR R5.REGSAV 
.ENDM 



; MACRO TO FORCE AN ERROR 

[macro FORCERROR TAG.NOTSSR 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSRCR5),R1 
,ENDC 

MOV FORCER, FORCER 

BNE TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 

} ♦ 

MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
j FORCER TO 177777 
j TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

!maCRO FORCEXIT TAG 

.NLIST 

.ITF NDF LISTALL, .NLIST 

.LIST 

MOV FORCER, FORCER 

BMI TAG 
.NllST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENDM 

j ♦ 

j MACRO TO INCREMENT ERROR COUNTS 

[macro NEXT.ERRNO 

.NLIST 

{j I, IIF NDF LISTALL, .NLIST 



j IS FORCER NEGATIVE? 
j BR LF YES 



H3 



TSV3 GLOBAL AREAS MACRO M1U3 
SPECIAl MACROS AND OPDEFS, 

382 

383 

384 

385 

386 

38? 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 000000 

398 

399 

400 

401 

402 

403 

404 

405 002176 000000 

406 

407 

408 

409 

410 

411 

41? 

413 

414 

415 

416 

41/ 

418 

419 002200 OOOOOO 

420 002202 OOOOOO 

421 002204 OOOOOO 
42? 002206 OOOOOO 

423 002210 0OO224 

424 002212 000200 

425 002214 OOOOOO 

426 002216 OOOOOO 
42 7 002220 OOOOOO 

428 002222 OOOOOO 

429 002224 OOOOOO 

430 002226 OOOOOO 
4 31 002230 OOOOOO 
4 32 002232 OOOOOO 
4 33 002234 OOOOOO 
4 34 002236 OOOOOO 
4 35 002240 OOOOOO 
4 3b 002242 

4 3/ 002302 OOOOOO 
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SEQ 033 



ERRNO-ERRNO*! 
ill .IIF NDF LISTALL, .LIST 
.LIST 

.ENDM 



j MACRO TO PERFORM XOR 



.MACRO 


XOR A,B 


MOV 


A.-(SP) 


BIC 


B.CSP) 


BIC 


A,B 


BIS 


CSP)*.B 


.ENOM 




EN-0 




.SBTTL 


FORCER - F 



, INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER: s 



.SBTTL 



j FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 
; - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 

1 - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
GLOBAL DATA SECTION 



» THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
j IN MORE THAN ONE TEST. 



;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
jSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
j 



EPRTSW: : 

UNITN: : 

QVP:: 

CSRADDR: 

IVEC:: 

IPRI: : 

TSTCNTt 

LOOPCNT 

DEVCNTt 

FATFLG: 

INTRECV 

EXTFEA: 

BEN6SW: 

EXPO: 

RECV: 

ERRHI 

ERRLO 

RAMDATA: 

RAMSIZ: : 



.WORD 
.WORD 
.WORD 
.WORD 










.WORD 224 
.WORD PR 104 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 
.WORD 

























16. 





PRINT SWITCH 

UNIT * UNDER TEST. 

QUICK VERIFY FLAG. 

ADDRESS OF CSR FOR CURRENT DEVICE 

INTERRUPT VECTOR 

INTERRUPT PRIORITY. 

NUMBER OF TESTS RUN IN THIS PASS 

REMAINING ITERATION COUNT FOR TEST 

NUMBER OF DEVICE UNOER TEST 

SET IF FATAL ERROR IS DETECTED IN TEST 

SET IF TAPE INTERRUPT WAS RECEIVED 

EXTENDED FEATURES SOFTWARE SW 0-OFF ; 1»ON 

BUFFER ENABLE SWITCH SW 0-OFFjl-ON 

EXPECTED RAM OATA FOR PRAMPKT ROUTINE 

RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

HIGH ADDRESS MEMORY ERROR 

LOW ADDRESS MEMORY ERROR 

DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

RAM DATA SIZE FOR PRAMPKT ROUTINE 



TSV3 - 
GLOBAL 



GLOBAL AREAS 
OATA SECTION 



MACRO M1113 06-FEB-84 17:14 



13 



sea oi4 



438 

439 

440 

441 

44? 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

4S9 

460 

461 

46? 

463 

464 

465 

4c>6 

467 

468 

469 

470 

471 

47? 

473 

4 74 

475 

4 76 

477 

478 

479 

480 

481 

48? 

483 

484 

485 

486 

487 

488 

489 

490 

491 

49? 

493 

494 



00?304 
002306 
00?310 
002312 
002314 
002316 
002320 
002322 
002466 
002632 



002752 
002752 
002754 
002 756 
002760 
002762 
002 764 
002766 
002770 
00277? 
002774 
002776 
003000 
003002 
003004 
003006 
003010 
003012 
003014 
003016 
003020 
00302? 
003024 
003026 
003030 
00303? 
003034 
003036 
003040 
003042 
003044 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
177777 
000001 
00000? 
000004 
OOOOIO 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 
177773 
177767 
177757 
177737 
177677 
17 757 7 
177377 
176777 
175 til 
173777 



RCVHIADD: ; 
RCVLOAOD: : 
COUNT; t 
DATA: : 
TSTFLAG:: 
TSTPTR 
PRMNO : 
EXPMSG 
RECMSG 
TMPBFR 



.SBTTL 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.BLKB 


100. 


.BLKB 


100. 


,BLKB 


80. 


TSTBLK 


- TE 



RECEIVED BUFFER HIGH ADDRESS 

iRECEIVED BUFFER LOW ADDRESS 

I TEST COUNT PATTERN 

I TEST DATA 

I TEST FLAG WORD 

I TSTBLK POINTER 

tPRINT ROUTINE TEMP 

jEXPECTED MESSAGE BUFFER DATA 

tRECEIVED MESSAGE BUFFER DATA 

{TEMPORARY STORAGE FOR PRINT 



- TEST DATA TABLE 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
iIN SEQUENCE THE DATA IS: 

5 ALL ZEROS 

j ALL ONES 

j WALKING ONES 

j WALKING ZEROS 

j ALTERNATING ONES AND ZEROS 



TSTBLK; 



.WORD 





)ALL ZEROS 


.WORD 


177777 


1 ALL ONES 


. I'ORD 


BI10 


j DATA mR WALKING 


.WORD 


BIT1 




.WORD 


BIT2 




.WORD 


BIT3 




.WORD 


BIT4 




.WORD 


BIT5 




.WORD 


BIT6 




.WORD 


BIT7 




.WORD 


BIT8 




.WORD 


BIT9 




.WORD 


BIT10 




.WORD 


BIT11 




.WORD 


BIT12 




.WORD 


BIT13 




.WORD 


BIT14 




.WORD 


BIT15 




.WORD 


tCBITO 


jDATA FOR WALKING 


.WORD 


tCBITl 




.WORD 


<CBIT2 




.WORD 


'CBIT3 




.WCRD 


tCBIT4 




.WORD 


tC3IT5 




.WORD 


tCBIT6 




.WORD 


tCBIT7 




.WORD 


tCBIT8 




.WORD 


rCBIT9 




.WORD 


tCBITIO 




.WORD 


'CBIT11 





ONES 



J3 



TSV3 - GLOBAL AREAS MACRO 


TSTBLK 


- TEST 


DATA TABLE 


495 


003046 


167777 


496 


003050 


1577^7 


497 


003052 


137777 


498 


003054 


077777 


499 


003056 


125252 


500 


003060 


052525 


501 




003062 


502 






503 






504 






505 






506 


003062 


OOOOOO 100000 


507 


003072 


oooooo oooooo 


506 






509 






510 


003112 


oooooo 


511 






512 


003114 


oooooo 


513 






514 


003116 


oooooo 


515 


003120 


oooooo 


516 


003122 


oooooo 


517 


003124 


oooooo 


*18 


003126 


oooooo 


519 


003130 


oooooo 


520 


003132 


oooooo 


521 






522 






523 


003134 


oooooo 


524 


003136 


oooooo 


525 


003140 


oooooo 


526 


003142 


oooooo 


527 


003144 


oooooo 


528 


003146 


oooooo 


529 


003150 


oooooo 


530 


003152 


002000 


531 


003154 


oooooo 


532 


003156 


oooooo 


533 


003160 


ooooco 


534 


003162 


oooooo 


535 


003164 




536 


003164 


oooooo 


537 


003166 


oooooo 


538 


003170 


oooooo 


539 


003172 


oooooo 


540 


003174 


177777 


541 


003176 




542 






54 3 






544 






545 






546 






54 7 






548 






549 






550 






551 


00317b 





M1113 



06-FEB-84 17:14 


SEQ 


035 




. WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
TBLEND--, 

.SBTTL 


tCBIT12 

tCBIT13 

tCBIT14 

tCBIT15 

125252 i ALTERNATING 

052525 i ALTERNATING 

GLOBAL ENVIRONMENT STORAGE 


ONES, 
ONES, 


ZEROS 

ZERO OPPOSITE 



FROM ABOVE 



j STORAGE FOR DEVICE REGISTERS 

OOOOOO DUMMY; 0,100000,0,0 {DUMMY DEVICE REGISTERS .. . 
OOOOOO 0,0,0,0,0,0,0,0 

j... FOR MULTI-UNIT CHECKOUT. 



DUFLGj: 




.WORD 





NODEV:: 




.WORD 





TEMPI:: 




.WORD 





TEMP2: : 




.WORD 





XXCOMM: j 




.WORD 





FREE: : 




.WORD 





FRESIZ:: 




.WORD 





FREEHI; 


.WORD 







KTFLGj: 




.WORD 





K TENABLE 




.WORD 





NXMTLG: 




.WORD 





NXMLO: : 




.yORD 





NXMHI: ; 




.WORD 





T23A: : 




.WORD 





T23B: : 




.WORD 





T3BFLG: 




.WORD 





PST32W: 




.WORD 


2000 


SIFLAG: 




.WORD 





BADDAT: 




.WORD 





GOOAT:: 




.WORD 





LOOPFL: 




.WORD 





CTAB:: 








CTABM:: 




.WORD 









.WORD 









.WORD 









.WORD 









.WORD 


•1 


CTABE: ; 








j ERROR STATISTICS TABLE 


CI w 







m 


UNIT 




1 00000 


■ 


UNIT 




10XXXX 


■ 


UNIT 




1600C0 


m 


UNIT 




160001 


•4 


UN 11 




14XXXX 


a 


UNIT 



{"DROPPED UNIT" FLAG. 
{INHIBITS CODE IN "CLEAN -UP". 
{FLAG TO SAY NO DEVICE. 

{SOME TEMP LOCATIONS. 

jXXOP* COMM BLOCK POINTER. 
;1ST FREE MEMORY ADDRESS... 
{ . . .AND SIZE (IN WORDS). 
{LAST WORD IN FREE SPACE 

|KT11, MEM AVAIL FLAG - 

{ • .WORD - <24K OR NO KT - 

l - HZ - >24K AND KT. 

{SET BY TEST ROUTINES TO FLAG >28K UNOER TEST 

WE CAN TEST CLEARED OTHERWISE 

ADDRESS BITS 

ADDRESS 87*" FOR DAL'S 16-21 

FLAG 

FLAG 
FLAG tO 



{SET IF 

; NXM LO 

,NXM HI 

{U/23A 

{11/23B 

{TEST 3B 

i32W BLOCK ADDRESS FOR 32K START 



{ACTUAL DATA 
{EXPECTED DATA 

* CONFIGURATION 
{CONFIG WORK. 



TABLES, 



i END OF MEM TABLE, 
CI WORD PER UNIT), 64 UNITS MAX: 



NOT TESTED 

ONLINE, NO ERRORS 

ONLINE, ENCOUNTERED XXXX ERRORS 

DROPPED, NON-EXISTENT DFVICE REGISTER 

DROPPED, NOT IDL6 AT START 

DROPPED, ENCOUNTERED XXXX ERRORS 



ERVABLj 



.BLKW 64 



I<3 



TSV3 - GLOBAL AREAS MACRO M1U3 06-FEB-34 17:14 SLQ 036 

GLOBAL ENVIRONMENT STORAGE 

55? 003376 000000 ERTABEj .WORD 

553 

554 003400 000000 SKIPT: .WORD jl-SKIP SUBTEST 0-NO SKIP OF SUBTEST 



L.3 



TSV3 - GLOBAL AREAS 
GLOBAL TEXT MESSAGES 



556 

557 

558 

559 

560 

561 

5b? 

563 

564 

565 

566 

567 003402 
003402 
003402 



MACRO M1113 Co-FEB-84 17? 14 



SEQ 037 



568 
576 
57 7 
578 
579 



580 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 



003410 
003410 
003410 



0035C2 
003522 
003542 
003545 
003551 
003555 
003561 
003565 
003571 
003576 
003603 
003607 
003613 
003620 
003625 
003632 
003637 
005644 

003652 
003705 
003740 
003777 
004020 
004060 
004 1 1 7 
004123 
004152 



124 



123 



052 



052 



003542 
003603 
lc3 
102 
123 
122 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 



003545 
003607 
103 
111 
103 
115 
130 
102 
111 
11.1 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 

101 
3.01 
116 
040 
040 



126 



052 



003551 
003613 
000 
105 
105 
122 
115 
101 
1*4 
124 
<22 
*14 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 



.SBTTL GLOBAL TEXT MESSAGES 



i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
j MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 



j NAMES OF DEVICES SUPPORTED 
} ■ 

DEVTYP <TSV05> 
L$DVTYPi: 

.ASCIZ /TSV05/ 
, EVEN 

{TEST DESCRIPTION 

DESCRIPT <** + * TSV05 LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ****^ 



L$OESC: t 



. ASCIZ /*+** TSV05 LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ****/ 
.EVEN 



BIT TO ASCII CONVERSION FOR TSSR REGISTER 



TSSRBIT:: 



li 
2$ 
3$ 
4$ 
5$ 
6$ 
7$ 

e$ 

9$ 

10$ 

11$ 

12$ 

131 

14$ 

15$ 

16$ 



SFIF^R 
SFHUR 
NXR: 
NXRX: 

TSSX: 

FUS1': 

US It 
NSIj 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 



1$»2$,3$.4$.5$.6$.7$.8$ 

9$ ,10$ ,11 $.12$, 13 $,14 $,15$ ,16$ 



.UORD 
.WORD 

* sc 

*BIE' 

«SCE' 

'RMR' 

•NXM' 

'NBA' 

•BIT9' 

'BITS' 

•SSR' 

' OFL' 

'BIT5' 

»BIT4* 

'BIT3* 

•BIT2' 

'BIT1' 

♦BITO' 

'TSSR ERROR AFTER SOFT INH' 

'TSSR ERROR AFTER BUS RESET' 

/ NON-tXISTANT DEVICE REGISTER/ 

/*A ADDRESS: *06/ 

/*A TSBA.TSSR EXP'Dj *06*A ,*06*N/ 

/*A TSBA.TSSR REC'D: *06*A,*06/ 

/*N*A/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 



TSV3 - GLOBAL. AREAS 
GLOBAL TEXT MESSAGES 
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M3 



SfcQ 038 



6?7 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 

660 



004215 
004221 
004256 
004300 
004335 
004407 
004457 

004527 
004530 
004533 
004567 
004643 
004745 
005013 
005056 
005113 
005206 
005300 
005372 
005460 
005554 
005645 



661 
662 



663 
664 
665 
666 
667 
668 
669 
670 
671 
672 



005736 
005736 
005736 
005736 
005742 
005746 
005752 
005754 
005756 
005762 
005766 
005766 
005766 



005 7 70 
005772 
005774 
005776 
006002 
006002 
006006 



045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 
045 
045 



116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 
116 
116 



045 
116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 
045 
045 



013746 
012746 
012746 
010600 
104415 
062706 
004 737 



104423 



003114 
003777 
000002 



000006 
005770 



005727 
000000 
001402 
004777 

012/46 
0X3746 



177770 

004530 
00000 I 



FNOINTR 

NOINTR: 

IFAULT; 

INTX. 

NOINIT 

NSINIT 

BRINIT 

NUL: 

NULCR: 

EXPGOT 

EXPGT2 

DUAD12 

PKTRAM 

SCME: 

WRTMSG: 

WRTERR: 

RDERR i 

SCHERR: 

RETERR: 

NOMEM 

M8186 

M8189 



* ♦ 



.ASCII /*N*A/ 

.ASCIZ / NO INTERRUPT WAS GENERATED/ 

.ASCIZ / INTERRUPT FAULT/ 

.ASCIZ /*A CPU PC: *06*A TSBAj *06/ 

.ASCIZ / "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

.ASCIZ / "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

.ASCIZ / "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

.ASCIZ // 

.ASCIZ /#N/ 

.ASCIZ /*A EXP'D: *06*A, REC'D: *06/ 

.ASCIZ /*N*A EXP'D: #06*A, #06¥N*A REC'D: *0*A. *06/ 

.ASCIZ /*A REGCW) WRITTEN TO: *06#A REGCR) READ; EXP'D: tf06*A, REC'D: *06/ 

.ASCIZ 'RAM Contents Do Not Match Packet Sent* 

.ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 

.ASCIZ 'WRITE CHARACTERISTICS Failed' 

.ASCIZ 'TSSR Incorrect After WRITE Command, More Bits Set Than SSR' 

.ASCIZ 'TSSR Incorrect After READ Command, More Bits Set Than SSR' 

.ASCIZ 'FATAL ERROR IN SUBTEST - CHECK TAPE, CABLES, TRANSPORT etc' 

.ASCIZ 'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

.ASCIZ '*N*A ***** NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. ******N' 

.ASCIZ **Ni<A ***************** 11/23A SYSTEM ******************N' 

.ASCIZ '*N*A ***************** 11/23B SYSTEM *+**+***+**+****+*N' 
.EVEN 

.SBTTL GLOBAL ERROR REPORT SECTION 



j THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

5 CALLS THAT ARE USED IN MORE THAN ONE TEST. 

, ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: 



BGNMSG NXRERR 



L 10002: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENDMSG 

TRAP 



*NXRX,NOOEV 
NODEV,-CSP) 
ONXRX, -(SP) 
*2. -CSP) 
SP.RO 
CJPNTX 
*6,SP 
PC, EXTEND 



C*MSG 



{NON-EXISTANT DEVICE REGISTER 
;NODEV ■ NEXM ADDRESS, 



; PRINT EXTENSION IF REQUIRED 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND: 
EXTA: 



l*i 



TST 



BEQ 

JSR 

PRINTX 

MOV 

MOV 



CPO + 

1$ 
PC.ae.xT \ 

4NULCR 

ONULCR, 

41,-CSP) 



p^ 



I - NO EXTENSION. 

. '?[ t-..'n EXTENSION T£XT 4 
: *A1NT * B'. ANK LINE 



N3 



TSV3 - GLOBAL AREAS MACRO liU13 06-FEB-84 17:14 SEQ 039 

GLOBAL ERROR REPORT SECTION 

006012 010600 

00601* 104415 

"06016 062706 000004 

673 006022 000207 



MOV 


SP,RO 


TRAP 


CSPNTX 


AOD 


44, SP 


RTS 


PC 



B4 



TSV5 GLOBAL AREAS MACRO MU13 
PRITSSR - PRINT TSSR CONTENTS 



06-FEB-84 17: 14 



SEQ 040 



675 








6 76 








677 








6/8 








679 








680 








681 








68*? 








b83 








684 








685. 








686 








687 








688 








689 








690 








691 








69? 








693 


006024 






694 


006024 






695 


006030 


010104 




696 


006032 








006032 


010446 






006034 


012746 


006415 




006040 


012746 


000002 




006044 


010600 






006046 


104414 






006050 


062706 


000006 


697 


006054 


010400 




698 


006056 


004737 


016044 


699 


006062 


103410 




700 


006064 








006064 


012746 


006635 




006070 


012746 


000001 




006074 


010600 






006076 


104415 






006100 


062 706 


000004 


701 


006104 


010403 




70? 


006106 


042703 


001476 


703 


006112 


001434 




704 


006114 


012702 


002632 


705 


006120 


012701 


003502 


706 


0O6124 


005703 




707 


006126 


001413 




708 


006130 


000241 




709 


006152 


006103 




710 


006134 


103006 




711 


006136 


011100 




712 


006140 


112022 




713 


006142 


001376 




714 


006144 


112762 


000054 


715 


006152 


005721 




716 


006154 


00^765 




717 


006156 


105042 




71Q 


006160 








006160 


012/46 


0026 V 




006164 


012746 


Q06606 



.SBTTL PRITSSR PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 

SUBORDINATE ROUTINES: 

CMKAM6 CHECK FOR AMBIGUOUS CONTENTS 



177777 



PRITSSR: 

SAVREG 

MOV RI.R4 

PRINTB ♦TSSRF0« I R4 

MOV R4,-(SP) 

MOV ♦TSSRFOR, (SP) 

MOV #2,-(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD #6 . SP 

MOV R4.R0 

JSR PC.CHKAMB 

BCS 51 

PRINTX #AMBTSSR 

MOV fAMBTSSR, - ( SP ) 

MOV #1, (SP) 

MOV SP.RO 

TRAP CtPNTX 

ADO M , SP 

51: MOV R4.R3 

BIC *HIADDR!FATERR 

BEQ 201 

MOV #TMPBFR,R2 

MOV ♦TSSRBIT.R1 

10$ : 1ST R3 

BEQ 15$ 
ClC 

ROL R3 

BCC 131 

MOV (Rl).PO 

lit: MOVB CRO)»,CRr J )» 

BNE lit 

MOVB #' ..-KR2) 

13*i TSf (Rl)» 

BR 10* 

15ft CIRB CR?) 

PRINTX *TSSDEF .frTMPRFR 

MOV OTMPBFR, •( SP) 

MOV ^TSSDEF.-CSPO 



I SAVE GENERAL REGISTERS 
iSAVE THE TSSR CONTENTS 
iPRINT THE CONTENTS OF TSSR 



iGET TSSR BACK FOR ChkAMB 
»ARE CONTENTS AMBIGUOUS ? 
, BRANCH IF NOT 
j SHOW CONTENTS ARE AMBIGUOUS 



iCONTENTS OF TSSR 
JTERCLS.R3 i CLEAR All MULTIPLE BIT FIELDS 

NO BITS ARE SET 
TEMPORARY ASCII BUFFER 
ASCII EQUIVALENT OF BITS 
REMAINING BITS TO CONVERT 
BRANCH WHEN ALL ARE DONE 
CLEAR CARRY FOR SHIFT 
SHIFT NEXT BIT TO CARRt 
BRANCH IF BIT NOT SET 
POINTER TO BIT DEFINITION 
MOVE ASCI/ TO BUFFER 
MOVE ALL BITS 

INSERT A C0f*1A TO TERMINATE 
POINT TO NEXT DESCRIPTION 
GET THE REMAINING BITS 
TERMINATE THE LINE 



PRINT THE BIT 



DEFINITIONS 



C4 



TSV3 G106AL 
PRITSSR • PRI 



ARFA$ 
NT Ts5 



R CON 



<m 



M1113 06FEB-84 17s 14 



719 
720 



723 



724 
725 
726 

727 
728 
729 
730 
731 



732 
733 
734 



735 
7 36 



737 
738 
744 
745 
746 
756 
757 
758 
759 
760 
761 
762 



006170 
006174 

006176 
006200 

006204 
006206 
006212 
006216 
006216 
006220 
006224 
006230 
006232 
006234 
006240 
006242 
006246 
006250 
006252 
006254 
006256 
006262 
006262 
006264 
006270 
006274 
006276 
006300 
006304 
006310 
006312 
006312 
006314 
0O6320 
006324 
006326 
0O6330 
006334 
006340 
006340 
006342 
006346 
006350 
006352 
006356 

006360 
006360 

006415 
006435 
0064 76 
006537 
006606 
006655 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001416 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
042704 
001411 

010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 



045 

045 
045 
045 
045 
045 
045, 



000002 



000006 



177761 
006676 



0064 76 
000002 



000006 
177717 

007236 



006537 
000002 



000006 
176377 



006435 
OOOGO? 



000006 
002200 



000001 
000004 

116 

116 
116 
116 
116 
116 
116 



20$! 



25* t 



301: 



MOV 
MOV 
TRAP 
ADD 

MOV 

BIC 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

BIC 

BEQ 

ASR 

ASR 

ASR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BIC 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



045 



EPRT2 
FPRT1 



045 TSSRFOfl? 

045 TEXmSC 

045 TCOASC 

045 TFCASC 

045 TSSDE* 

045 AM&TS5R1 



♦2,-CSP) 
SP.RO 
CIPNTX 
*6>SP 

R4.R3 

#tCTERCL5,R3 

TCOCOOCR3),R3 

♦TCOASC ,R3 

R3.-CSP) 

«1C0ASC,-(SP) 

•2,-(SP) 

SP.RO 

CIPNTX 

#6,SP 

R4.R3 

*tcrATERR,R3 

251 

R3 

R3 

R3 

TSFCOO(R3),R3 

♦TFCASC.R3 

R3.-CSP) 

♦ TfCASC. -CSP) 

♦2, rsp) 

S^.flO 
C/"»lTX 

*6.SP 

#tCMlAD0R,R4 

30* 

♦TEXASC.R4 

R4.-CSP) 

#TEXASC.-(5P) 

*2, -CSP) 

SP.RO 

CtPNlX 

#6»SP 

EPRTSW.R3 

R3 

R3.-CSP) 

•1, (SP) 

SP.RO 

CIPNTX 

♦4,SP 

PC 



SEQ 041 



|GET THE TSSR CONTENTS 

iCLEAR ALL BUT TERMINATION 

iCET THE TERMINATION CODE MEANING 

, PRINT THE TERMINATION CODE 



I TSSR CONTENTS AGAIN 

iCLEAH ALL BUT FATAL TERMINATION 

I DON'T PRINT IF /ERO 



lALINE TERMINATION CODE FOR INOEX 
»GET THE FATAL TERMINATION CODF 
, PRINT THE FATAL TERMINATION CODE 



1 CLEAR ALL BUT EXTENDED ADORESS 

iDON' T PRINT IF ZERO 

iPRINT THE EXTENDED ADDRESS BITS 



, PRINT MEAASGE BUFFER ADDRESS 
j PRINT PROPER MESSAGE 



IRETURN TO CALLER 



.ASCIZ '*N*A 



-REPLACE M7196***** 



.ASCI/ '#N#A 

.ASCI/ *N*A 

.ASCIZ '#N*A 

.ASCIZ <#N*M 

,ASCI/ '*N*A 



TSSR - *06" 

E*t«nd#d Addraaa B\tn - 
Termination Claa< C<xi« 
Fatal Termination Class 
TSSR Bit* S#tj *T- 



*06' 
CoO* 



*T 



»EVEN 



»ASCW **N*A TSSR Contents Are Am&iguaua* 



D4 



tf¥?SSR G, : a MM"f§§R CON« 



HlllS 06 -FEB -84 1 7 j 14 



SEQ 042 



765 
764 
765 
766 
76 7 
768 
769 
770 
7 71 
772 
7 75 
7 74 
775 
776 
777 
7 78 
779 
780 
761 
782 
783 
784 
785 
786 
787 
788 
789 
?90 
791 
792 
795 
794 
795 
796 
79^ 
798 
799 
800 
801 
80? 
803 
604 
805 



806 
80 7 

808 
809 
810 
811 
8>2 



006676 
006716 
006741 
00676 7 
007011 
007031 
007113 
007162 
007206 



007256 
007246 
00 7502 
007313 
007357 



007? /G 

oorvo 

007-374 
007376 
007402 
Ov7404 
007406 
0074 XC 
007412 
00/414 
0074 16 
PO/4'U 
l)074?0 
00/.'. :<■ 
O074?'.; 
00/4 3? 
00745', 
0074 3* 
t0744>: 
0O/4* : 
00744 , 
00 7 4*50 
OU74S4 
O0 74~>* 
0074CJ 



006716 
116 
124 
124 

106 
122 
122 
125 
106 



007246 
ill 
122 
102 
122 



v* - - V05 

^).(^) 
(/•'iOOS 
(. : ;3ol 

0. f 0*00 
OOMOO 
C'JMOl 

•*: . 0446 

O10146 
t; J. J 746 
C it/46 
1.0600 
104414 
0*2706 
v 10500 
001404 
.'.".0401 
004 73 7 
< ' J 0004 
O'ViOOl 
■i 12402 



006741 
157 
145 
141 
165 
145 
145 
156 
141 



007302 
156 
145 
165 
145 



00676 7 
162 
162 
160 
156 
143 
1*3 
162 
164 



007315 
164 
165 
165 
163 



003134 



00 7'_>54 
CG0003 



000010 



017316 



TCOCOD: 

\% 

2* 

5$ 

41 

5$ 

6i 

7$ 

8$ 



TSFCOD; 

lit 

2$: 

5$t 

4*: 



.WORD 

.ASCI? 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.EVEN 
.SDTTL 



11,21,31,41 ,5»,6l,7t,8l 

'Normal termination' 
'Termination Condition' 
' Tap* Statu* Alart' 
'Funct ton Rej*ct' 
'Recoverable Er^or - Tap* 
'Recoverable Error - Tap* 
'Unrecoverable Error' 
'Fatal Controller Error' 



Position On* Record Down 
Was Not Moved' 



1$,?$,3$,4$ 

'Internal Diagnostic Faiiura' 

'Reserved' 

'Bus Interface or Sanity Check Error' 

'Reserved' 

PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS Of A COMMANO PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE, 



INPUT j 



RO 
R3 

R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMANO PACKET 



NOT!:: R5 IS IGNORED IF THE KTENABLE FLAG IS CLEAR 



PRIPKT} 



10$ 



15* 



20 * 



SAVREG 

MOV R0.R5 

TST KTENABLE 

BNE 101 

CLR R5 

MOV R5.R1 

MOV R4.R0 

ROL RO 

ROl Rl 

PRINTB ♦PKTADD,M1 # R4 

MOV R4 , - ( SP ) 

MOV Rl.-(SP) 

MOV OPK T ADD, (SP) 

MOV 03. (3P) 

MOV SP.RO 

TRAP CIPNTB 

ADD <MO,SP 

MOV R3.R0 

BEQ 201 

MOV R4.R1 

JSR PC.SETMAP 

MOV R0.R4 

CLR Rl 

MOV (R4)*,R<> 



jSAVE THE REGISTERS 

jSAVE NO. OF UORDS IN PACKET 

lABOVE 28K UNOER TEST? 

jBR IF YES 

jiET HIGH ORDER ADDRESS TO 

j COPY HIGH ORDER ADDRESS 

,GET LOWER ADDRESS 

iSHTFT BIT 15 INTO C BIT 

jANO INTO HIGH ORDER. 

j PRINT PACKET ADDRESS 



I GET HIGH ORDER ADDRESS 
,BR IF NOT ABOVE 2«K . 
»GET LOW ORDER ADDRESS 
t SETUP PAR6 MAPPING FOR 18 
jGM RETURNED PAP6 ADDRESS 
I SAVE WORD NUMBER 
|GET PACKET CONTENTS 



BIT ADDRESS 
BIAS 



E4 



TSV3 - GLOB A!. AREAS MACRO MU13 06-FE3-84 17:14 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



813 



814 
815 
816 
617 
818 
8! 9 
820 
821 

822 

824 
825 
826 
827 
826 
829 
830 
rt3l 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
84b 
(346 
84^ 
848 



849 

850 
851 
852 

854 



007462 

007462 
007454 
00 7460 
00/4/2 
0074/6 
007500 
007502 
007506 
007510 
007512 
007514 

00 7M6 
007554 



00761,? 
007612 
007676 
007620 
00 76.0 
007634 
00 763* 
O076<0 
007642 
007642 
00764 h 
007M6 
00/650 
00 ,'65* 
00/^-0 

co /m Js: : 

00 'oM 
00 76 *° 
00 76 72 

007674 



010246 
010146 
012746 
012*746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 



0.10203 

012700 
04*001 
040002 
04 0003 

010346 
010146 
010246 

012746 

012746 
010600 
104414 
062706 
010300 
00020 7 

045 



007516 
000003 



000010 



116 
116 



045 
045 



PKTFRM: 
PKTADD; 



177400 



007674 
000004 



000012 



116 



PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BLT 

RTS 

.ASCI2 
.ASCI/ 
.EVEN 
.SBTTL 



*PKTFRM,R1,R2 

R2.-CSP*) 

Rl.-(SP) 

*PKTFRM,-(SP) 

03, (SP) 

SP.RO 

CSPNTB 

*10,SP 

Rl 

RI.R5 

25' 

PC- 



SEC! 043 



l PRINT THE DATA 



jNEXT WORD NUMBER 
I DONE ALL PACKET WORDS? 
iLOOP TILL ALL DONE 
I RETURN 



*#N*A Packet Word *#D1*A • #06' 
•*N*A Packet Address - #01*05' 

PRIBXOR ■ PRINT EXPD, RECV AND XOR BYTE 



(PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
j THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



; INPUTS: 

i 
i 



Rl 
R2 



j OUTPUT j 

* 

j 
I - 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



PRIBXOR:: 

SAVREG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



R2.R3 

R1.R3 

*tC<377>,RO 

R0.R1 

R0,R2 

R0.R3 

♦X0RBF0R.R2.R1 

R3, -CSP) 

Rl.-CSP) 

R2 . ■ ( SP ) 

0XORBFOR, -(SP) 

04, -CSP) 

SP,RO 

CIPNTB 

*12,SP 

R3.R0 

PC 



j SAVE THE 
jEXPECTED 
jFORM THE 
iBYTE 
iSAVE 
j SAVE 
-. 5AVE 



REGISTERS 

DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOW BYTE EXPO 
LOW BYTE XOR 



OR 



,R3 jPRINT THE MESSAGE 



jRO HAS 
{RETURN 



XOR ON RETURN 
TO CALLER 



045 XORBFOR: 



.EVEN 
.SBTTL 



.ASCIZ '#N#A EXPDi tt03*A RECV: *03*A XOR: #03 



PRIXOR 



PRINT EXPO, RECV AND XOR 



F4 



TSV3 • GLORAL AREAS MACRO Mil 13 
PRIXOR • PRINT EXPD, RECV AND XOR 

8^'i 
856 
857 
853 
859 
860 
3o 1 
862 
86."> 
8M 
865 
866 
86/ 
868 
669 
8 70 
871 

8 :5 

874 00 7V 'if. 010203 

e/5 

8/6 



06-FEB-84 17j14 



SEQ 044 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS ! 



Rl RECEIVED DATA 
R3 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



877 

8 78 
370 

880 
861 
8L? 
883 
884 
885 
.386 
86 7 
888 
889 
890 
o91 
89? 
893 
594 
89' , 
89i\ 
89 7 

898 
899 
9C0 

901 
90? 
903 



00? 74?. 
00 7 74;: 
00 7 V 'if. 
00/750 
007 760 
00 7 7,,,) 

007 7 1: £ 

00 7 7f>'. 
00 7766 

oo v / ; b 

01 0000 
0100^2 
C 100vK> 
010010 

010012 



PRIXOR: 



010546 
010146 
OlOiMfo 
Qlk'fib 

012/46 
010600 

104414 

O62706 

010300 
000207 

045 



010012 
000004 



000012 



116 



SAVREG jSAVE THE REGISTERS 

MOV R2.R3 iEXPECTED DATA 

XOR R1.R3 jFORM THE EXCLUSIVE OR 

PRINTB *X0RF0R,R2 t Rl,R3 jPRINT THE MESSAGE 

MOV R3.-CSP) 

MOV Rl.-CSP) 

MOV R2.-CSP) 

MOV *XORFOR, -CSP) 

MOV *4>-(SP) 

MOV SP.RO 

TRAP CiPNTB 

ADD *12. SP 

MOV R3.R0 jRO HAS XOR ON RETURN 

RTS PC j RETURN TO CALLER 

045 XORFOR: .ASCIZ ' *N#A EXPD: «U6*A RECV: *06#A XOR: *06' 
.EVEN 

.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



010060 

Ol00i.-0 

010064 



PRIEQU: 



0U0207 



RO 
Rl 



SAVREG 
RTS 

.SBTTL 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PC 
PRIRAM 



j SAVE THE REGISTERS 
» RETURN TO CALLER 



PRINT RAM ADDRESS 



{PRINT CONTROLLER RAM ADDRESS. 



G4 



TSV3 
PRIRAM 

904 

90t 
907 

908 
909 
910 
911 
«12 
915 



GLOBAL AR( V • 
PRINT RAM 



914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
92 7 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
930 



939 
940 
941 
942 

94 3 
944 
94 5 
94 6 
94 7 



0100A6 

01006* 1 
010072 
010072 
010074 
0103.00 
010104 
0101C6 
010110 
010114 

010116 



010160 
010160 
010164 
C10170 
010174 
010176 
1 0200 
010202 
010202 
010204 
010206 
01021? 
0102V. 
0102.-C 
07 0222 
01022*. 

010230 



MACRO Ml 113 
ADDRESS 



06-FEB-84 17:14 



5EQ 045 



0!i 445 

Oi.i/46 

0V746 
010600 
10- ■"■*' 3.4 
06 27 06 



045 



o :.:■■' oo 

»U.-/Ol 
O10-.O2 

(XV .v 00 

C/02K* 
0.1.\Mn 

012 v 4«; 

W ■: "■ i4 
Ov. -\Ki 
00020 i* 

045 



I THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



I INPUTS: 



R4 



RAM ADDRESS 



PRIRAM: 



010116 
000002 



000006 



116 



045 



SAVREG 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 

RAMFQR: .ASCI2 
.EVEN 



ORAMF0R.R4 

R4.-CSP) 

ORAMFOR.-(SP) 

*2,-(SP) 

SP.RO 

C$PNTB 

*6,SP 

PC jRETURN 

**WA CONTROLLER RAM ADDRESS 



iSAVE R1-R5 UNTIL NEXT RETURN 
j PRINT RAM ADDRESS IN ERROR 



*06 



.SBTTL PRIADD 



PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDPESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 

IMPLICIT INPUTS 



002236 
002240 



OLQ230 
000003 



OOOOIO 



; ERRHI 


- HIGH ORDER 


ADDRESS 


; ERRLO 


- LOW ORDER ADDRESS 


PRIADD: 






SAVREG 




jSAVtl Rl R5 UNTIL NEXT R 


MOV 


ERRHI. RO 


»GET HIGH ADDRESSS 


MOV 


ERRLO, Rl 


j GET LOU ADDRESS 


MOV 


R1.R2 


iCOPY LOW ADDRESS 


ROL 


Rl 


iSHIFT BIT 15 TO C BIT 


ROL 


RO 


{SHIFT INTO HIGH ORDER 


PRINTB 


♦PRIAO.R0.R2 


j PRINT MEMORY ADDRESS IN 


MOV 


R2.-CSP) 




MOV 


RO.-(SP) 




MOV 


OPRIAO, CSP) 




MOV 


♦3,-CSP) 




MOV 


SP.RO 




TRAP 


C*PNTB 




ADO 


♦10, SP 




RTS 


PC 


j RE TURN 



RETURN 



ERROR 



116 



045 PRIAO: . ASCIZ ' *N*A MEMORY ERROR ADDRESS - K0H05 
.EVEN 

, SBTTL PRITAOD * PRINT MEMORY TEST ADDRESS 



j PRINT MEMORY ADDRESS 



TSV? - GLOBAL f.Rfc. >Li 
PRITADD PRINT MEMORY 



1-14 



MACRO Mill. 
EST ADORES! 



TES 



06-FEB-34 17; 14 



SEQ 046 



940 






j THIS ROUTINE IS NORMALLY CAL 


.LED ONLY FROM PRINT ROUTINES, 


949 






• 








950 






j IMPLICIT INPUTS 




951 






? 








OS? 






i 


ERRHI 


- HIGH ORDER 


ADDRESS 








• 

i 


ERRLO 


- LOW ORDER ADDRESS 


935 

956 01C v /4 






PRITADD 


• 
% 






957 OKX "M 








SAVREG 




{SAVE R1-R5 UNTIL NEXT RETURN 


956 010500 


0] "' 70? 


002256 




MOV 


ERRHI, R2 


jGET HIGH ADDRESSS 


959 010504 


015701 


002240 




MOV 


ERRLO, Rl 


jGET LOW ADDRESS 


960 








l MOV 


R1.R2 


jCOPY LOW ADDRESS 


961 








jROL 


Rl 


jSHIFT BIT 15 TO C BIT 


96? 








jROL 


RO 


j SHIFT INTO HIGH ORDER 


965 0^0510 








PRINTB 


*PRIT0,R1 


jPRINT MEMORY ADDRESS LOW IN ERROR 


CUQJ'IO 


010146 






MOV 


Rl.-CSP) 




010512 


0L-V46 


010556 




MOV 


OPRITO.-(SP) 




010516 


01..": '46 


000002 




MOV 


♦2.-CSP) 




OlOSSP 


01i>*.00 






MOV 


SP,R0 




OiOS24 


ItVU v 4 






TRAP 


C$PNTB 




010526 


0*2 706 


000006 




ADO 


*6,SP 




964 010552 








PRINTB 


•PRIT1.R2 


i PRINT MEMORY ADDRESS HIGH IN ERROR 


01055^' 


010246 






MOV 


R2, -(SP) 




010554 


CI,? 746 


010421 




MOV 


#PRIT1,-(SP) 




010540 


01X746 


000002 




MOV 


♦2.-CSP) 




010544 


0K>6;)0 






MOV 


SP,R0 




010546 


104 414 






TRAP 


OPNTB 




010550 


06 27 Of- 


000006 




ADD 


*6,SP 




965 010554 


0OO207 






RTS 


PC 


j RETURN 


96ft 














967 01055* 


045 


116 


045 PRITO: 


.ASC1Z 


' #N*A MEMORY 


TEST ADDRESS LOW - *06' 


968 0104^1 


045 


lib 


045 PRIT1: 


.ASCIZ 


•#N*A MEMORY 


TEST ADDRESS HIGH - «*06' 


</69 








.EVEN 






970 
9/1. 








.SBTTL 


SPACE - SPACE RECURDS (FORWARD AND REVERSE) COMMAND 


9 7? 
9/5 






j ♦ 








9/4 






jROUTINE 10 ISSUE A SPACE RECORDS 


9/5 






{COMMAND (FORWARD OR REVERSE) 


9/6 














977 






j INPUT: 








978 














97 V 








R5 


NUMBER OF RECORDS TO BE SPACED OVER 


960 










BIT15 CONTROLS DIRECTION 


961 










BIT15 - IS 


FORWARD 


982 










BIT15 • 1 IS 


REVERSE 


985 








R5 


FIRST DEVICE 


UNIBUS ADDRESS 


984 














985 








REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


986 














96 '/ 






! OUTPUT 


• 






988 














969 








CARRY 


SET SPACE 1 


RECORDS COMMAND OK 


990 










CLR - SPACE 1 


RECORDS FAILED 


991 














092 















14 



TSV3 - GLOBAL AWi^.S MACRO M1U3 06 -FEB -84 17:14 
SPACE SPACE RECORDS (FORWARD AND REVERSED COMMAND 



SEQ 04 7 



993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1 003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

101? 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 



l 



RO 



THE CONTENTS OF R4 IS MOVED TO RO 



1021 
1022 
1023 

1024 

1025 
.1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



010466 
01046*, 

0104 72 
010500 

dose*. 

010510 
010*51? 
010516 
010520 
010324 
010530 
0ir",36 
0101.42 
010546 
010552 
010554 
010*-S4 
010560 
0l056r. 
010566 
01057O 
010574 
010:376 
010602 

O106O4 
010610 

omevd 

010614 
010620 
010624 
010626 
010630 
010632 
010634 
0KY.36 
010640 
010640 
010642 



D127 37 
01.V37 
005 703 
1O0403 
010537 
C CK>40 7 
(42703 
010337 

ov»r737 

012704 

05 0465 
V1737 
10-i4i?0 

0..V27 

IV 00 00 
Oj.'»72 7 

OOOOOO 
00 • 36 7 
OC'.'w'S 
C'/^V»? 

v':0>.36V 
>X,5337 

( ! r.r>6 

J<W31 
•'/i6v'>l 
Ult-'/Oi: 
OAVOl 

*.;»).« toi 

<) X'402 
O'/'s/'nl 
0'0401 
CO 0241 

CL'.'AOO 
000207 



IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE:; 



000764 010660 
140010 010650 



010652 

100000 

010652 

000400 010650 

010650 

000000 

016250 



000250 
002116 
177772 
177756 
010660 



000002 
000200 





SAVREG 






MOV 


*500, .SDELAY 




MOV 


0140010,80$ 




TST 


R3 




BMI 


5$ 




MOV 


R3,90$ 




BR 


10$ 


5$: 


BIC 


*BIT15,R3 




MOV 


R3,90$ 




BIS 


*6IT8,80$ 


10$: 


MOV 


*80$,R4 




MOV 


R4.TSDBCR5) 


15$: 


JSR 


PC.WAITF 




BCb 


20$ 




DELAY 


250 




MOV 


^250, (PC)* 




i r 


} 

^JDLY.CPO* 




■ ' t 







I 


-6CPC) 




BNfc 


. 4 




DEC 


22CPC) 




BNt 


. -20 




DEC 


SDELAY 




ONE 


15$ 




BR 


60$ 


20$: 


MOV 


TSSR(R5),R1 




MOV 


♦SSR.R2 


25$: 


CMP 


R2,R1 




BEQ 


40$ 




BR 


60$ 


40$: 


sec 






BR 


70$ 


601: 


Cl.C 




70$: 








MOV 


R4.R0 




MTS 


PC 



jSAVE THE GENERAL REGISTERS 
j SET UP DELAY 

} SET UP COMMAND. SPACE FORWARD 
, CHECK FOR DIRECTION 
jBR, IF REVERSE INOICATED 
tLOAD UP NUMBER OF RECORDS TO SPACE 
jGO 00 COMMAND 
iCLEAR DIRECTION BIT 
jLOAD UP NUMBER 07 RECORDS TO SPACE 
tSET REVERSE BIT IN COMMAND PACKET 
;SET UP R4 WITH PACKET ADDRESS 
jSENO OUT COMMAND 
} WAIT FOR SSR 
j BR, IF SSR IS SET AND OK 
j DELAY ABOUT .25 SECONDS 



;BUMP DELAY COUNTER DOWN 

iBR. IF MORE DELAY 

I BR IF TROUBLE CARRY - CLEAR 

jREAD TSSR 

s SET UP EXPECTED 

{ARE THEY OK 

tBR, IF EQUAL - OK 

j TROUBLE EXIT 

:SET CARRY NO TROUBLE 

jEXIT 

I CARRY CLEAR - ERROR 

iPASS PACKET ADDRESS 
{RETURN 



J 4 



TSV3 - GLun" AREAS MACRO M1113 06 -FEB -84 17:14 

SPACE ■ S> iCfc RECORDS (FORWARD AND REVERSE) COMMAND 



SEQ 048 



1056 
105 "* 
105? 
103*. 

10*. n 

1042 
JO*' * 
104s 

104 3 
104" 
1046 
1049 
10b0 
1051 

1052 
105?. 
1 054 
105S 
1056 

105 7 
105 -J 
i059 
1060 
1061 

106;? 

106.S 
1064 
1065 
1Po6 
1067 

iota 

1069 
10/0 

10/1 

107? 
1073 
1074 
1075 
1076 
107/ 
10/8 
10/9 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
108 7 
1088 
1089 
1090 
1091 

1002 

1093 

1094 



010650 



CH' -650 000000 



01065? 
<J10654 

01CS56 
.0660 



010662 
010662 
010666 
010672 
010676 
010702 
010706 
010/10 
010712 
010716 



OOCv'OO 

oooooo 

000') 01 
000000 



005037 
005037 
010465 
004 7 37 
103401 
0004 35 
016501 

oia702 



002230 
002226 
000000 
016336 



OOOOO? 
000200 



{PACKET FOR SPACE COMMAND 

. -<.»10>6177770 

| COMMAND WORD 

80* j .WORD 

j NUMBER OF RECORDS TO BE SPACED OVER WORD 

90$: .WORD 

.WORD 

.WORD 
SDELAY j . WORD 

.EVEN 

.SBTTL WRTCHR 



j DELAY COUNTER 
WRITE CHARACTERISTICS COMMAND 



{ROUTINE 
jCOMMANO 

! INPUT: 



TO ISSUE A WRITE CHARACTERISTICS 

SO THAT OTHER COMMANDS WILL BE ACCEPTED 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



; OUTPUT: 



RO TSSR CONTENTS 

CARRY SC:T - WHITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT 



MESSAGE BUfrtS ANO OTHER HIT FIRS ALl SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS • 

EXTFFA » EXTENDED FEATURES PRESENT 



BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



URTCHR: 


• 
'SAVREG 






CLR 


BEN8SW 




CLR 


EXTFEA 


10$: 


MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




BCS 


20$ 




BR 


60$ 


20$ i 


MOV 


TSSR(R5),R1 




MOV 


ftSSR.Rc? 



:SA\'E THE GENERAL REGISTERS 
; CLEAR BUFFER ENABLE SWITCH 

iCLEAR EaTENOED FEATURES SW SWITCH 

j SEND OUT COMMAND 

j WAIT FOR SSR 

{BR, IF SSR IS SET AND OK 

{BR IF TROUBLE CARRY < CLEAR 

iRFAD TSSR 

{SET UP EXPECTED 



I<4 



TSV3 - GLOBAL AREAS MACRO :1H13 06-FEB-84 17:14 
WRTCHR - WRITE CHARAl TERXSTICS COMMAND 



1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

.1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

11<4 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 



010722 
010/26 
010730 
010734 
010736 
010740 
010742 
010746 
010/50 
010756 
010760 
010764 
010764 
010772 
010774 
011000 
011000 
011002 
011004 
011006 
011012 



011014 
01 1014 
011020 
011024 
011030 
011034 
011040 
011042 



032701 000100 

001402 

052702 000100 

020201 

001401 

000421 

062704 000010 

011403 

032763 000200 000012 

001402 

005237 00C?26 

032763 000100 000012 

001402 

005237 002230 



000261 
000401 
000241 
016500 
000207 



01? 704 
010465 
012703 
004737 
103417 



000002 



25$ 
40$ 

45$ 
50$ 



60$ 
70$ 



BIT 
BEQ 
BIS 

CMC 

BEQ 

BR 

ADD 

MOV 

EIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 

BR 

CLC 

MOV 

RTS 

.SBTTL 



OOEL.Rl 

25$ 

OOFL.R? 

R2.R1 

40$ 

60$ 

08, ,R4 

(RO.R3 

$X2>EXTF,XST2(R3) 

45$ 

EXTFEA 

4X2.BUFE.XST2CR3) 

50$ 

BENBSW 



70$ 

TSSR(R5),R0 

PC 

REWIND - POSITION 



SEQ 049 



jWAS OFF LINE SET IN TSSR 

jBR, IF NO OFL SET 

I MAKE THEM lOQK ALIKE 

j ARE THEY OK 

I BR, IF EQUAL ■ OK 

{TR0U6LE EXIT 

{POINT TO WRT CHARA DATA PACKET 

{GET ADDRESS OF MESSAGE BUFFER 

lEXTENDEO FEATURES BIT SET? 

j BR IF NO 

j SET EXTENDED FF* ,r%r "S SW SWITCH 

{BUFFER ENABLE SWITCH SET 
j BR, IF SWITCH NOT SET 
{SET SOFTWARE SWITCH FOR ENABLED 

{SET CARRY NO TROUBLE 



:xir 



{CARRY CLEAR 
{RETURN TSSR 
; RE TURN 
TAPE (REWIND) COMMAND 



- ERROR 

CONTENTS 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC, REWIND 



INPUT: 



OUTPUT 



011110 
000000 
000550 
016250 



REWIND: 



10$ 



R5 



RO 



SAVREG 

MCV 

MOV 

MOV 

JSR 

BCS 

DELAY 



FIRST HEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



0RWPACK.R4 

R4.TSDBCR5) 

0360. ,R3 

PC.WAITF 

20$ 

250. 



{SAVE H1-R5 UNTIL NEXT RETURN 

{GET PACKET ADDRESS 

{SENO PACKET ADDRESS TO EXECUTE 

{ENOUGH TIME FOR 2400' REEL TO REWIND 

{WAIT FOR SSR TO SET 

{LEAVE W.wN SSR IS SET 

{WAIT FOR .25 SECONDS 



TSV3 - GLOBAL AREAS MACRO M1113 06-FE6-84 17:14 
REWIND POSITION TAPE (REWIND) COMMAND 



L4 



SEQ 050 



1152 
1153 
1154 
1155 
1156 
1157 
1159 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 



011042 
011046 
011050 
011054 
011056 
011062 
011064 
011070 
011072 
011074 
011076 
011100 
011102 



011110 
011110 
011112 



011114 
011114 
011120 
011124 
011130 
011132 
011136 
011144 
011150 
011154 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 

011110 

102010 
000000 



012701 
012702 
005003 
004737 
112765 
004737 
010265 
004737 



000372 
002116 
177772 
177756 



002242 
000201 

016336 
000000 
016336 
000000 
016336 



000000 



20$: 



RWPACK : 



MCV 


#250., (PC)* 


.WORD 





MOV 


L$DLY,CPC)+ 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


.-20 


DEC 


R3 


BNE 


10$ 


CLC 




MOV 


R4.R0 


RTS 


PC 


.■<.*10 


>£177770 


.WORD 


102010 


.WORD 





.SBTTL 


CKRAM - C 



j BUMP COUNTER DOWN 

j KEEP GOING 

{CLEAR CARRY TO SET ERROR 

j PASS THE PACKET ADDRESS 

{RETURN 



tPOSTION COMMAND (REWIND) 
{NOT USED 
COMPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



{OUTPUT: 

i 
i 

5 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



{IMPLICIT OUTPUT: 



l 



THE TABLE RAMOATA IS FILLED WCTH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 



{SIDE EFFECTS: 

! THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 

J 



CKRAM; 



105 



SAVREG 




MOV 


*RAMDATA,R1 


MOV 


•RMPKTBEG.R2 


CLR 


R3 


JSR 


PC.CHKTSSR 


MOVB 


00,TSDB(R5) 


JSR 


PC»CHKTSSR 


MOV 


R2.TSDBCR5) 


JSR 


PC.CHKTSSR 



{SAVE THE GENERAL REGISTERS 

TO SAVE THE RAM DATA 

FIRST RAM DATA 
FLAG 



{ADDRESS 



{BYTE ADORESS OF 
{CLEAR THE ERROR 
{WAIT FOR SSR 
{SET MAINTENANCE 
{WAIT FOR SSR TO 
{SELECT NEXT RAM 
{WAIT FOR SSR TO 



MODE 
SET 

ADDRESS 
SET 



TSV3 - GLOBAL AREAS 
CKRAM - COMPARE RAM 



MACRO M1113 
TO I/O PACKET 



06-FEB-84 17; 14 



M4 



SEQ 051 



1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

125 7 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

124 7 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 



011160 
011164 
011166 
011170 
011172 
011174 
011200 
011202 
011204 
011206 
011210 
011212 
011214 
011222 



011224 
011224 
011230 
011234 
011240 
011242 
011246 
011254 
011260 
011264 
011270 
011274 
011276 
011300 
011302 



116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



012701 
012702 
005003 
004737 
112765 
004 737 
010265 
004737 
116511 
122124 
001401 
005203 
005202 



000000 



000210 



20$ 



000010 002302 



30$ 
50$ 



MOVB 

CMPB 

BEQ 

INC 

INC 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

MOV 

RTS 

.SBTTL 



TSBA(R5),CR1) 
CR1)*.CR4)* 

20$ 

R3 

R2 

R2.0RMPKTEND 

10$ 

R3 

30$ 

50$ 

*8. .RAMSIZ 

PC 

CKRAM2 - COMPARE RAM TO 



j READ THE RAM DATA 
t COMPARE TO EXPECTED 
} BRANCH IF OK 
j SET ERROR FLAG 
1 ADDRESS OF NEXT RAM LOCATION 
, REACHED END YET ? 
{BRANCH TILL ALL READ 
j WAS AN ERROR FOUND ? 
, BRANCH IF NOT 
j CLEAR CARRY TO SHOW ERROR 
{AND EXIT 

{SHOW GOOD COMPARE 
j SETUP RAMSIZ FOR PRAMPKT ROUTINE 
{RETURN 
I/O CHARACTERISTICS DATA 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
R5 



ADDRESS OF THF CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



{IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM2: 



002242 
000167 

016336 

000000 000000 

016336 

000000 

016336 

000000 



10$ 



20$ 



SAVREG 




MOV 


*RAMDATA t Rl 


MOV 


0RMCHBEG.R2 


CLR 


R3 


JSR 


PC.CHKTSSR 


MOVB 


O0.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOV 


R2,TSDB(R5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBA(R5),(R1) 


CMPB 


(R1V.CR4)* 


BEQ 


20$ 


INC 


R3 


INC 


R2 



{SAVE THE GENERAL REGISTERS 

{ADDRESS TO SAVE THE RAM DATA 

{BYTE ADDRESS Of FIRST RAM DATA 

{CLEAR THE ERROR FLAG 

,WAIT FOR SSR 

{SET MAINTENANCE MODE 

{WAIT FOR SSR TO SET 

{SELECT NEXT RAM ADDRESS 

{WAIT FOR SSR TO SET 

{READ THE RAM DATA 

{COMPARE TO EXPECTED 

{BRANCH IF OK 

{SET ERROR FLAG 

{ADDRESS OF NEXT RAM LOCATION 



N4 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 052 



1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
.1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
12<">9 
13C0 
1301 
1302 
1503 
1304 
1305 
1306 
1307 
3 308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 



011304 
011312 
011316 
011320 
011326 
011332 
011334 
011336 
011342 
011344 
011346 
011350 
011352 
011354 
011356 



011360 
011360 
011364 
011370 
011374 
011400 
011402 
011406 
011410 
011412 
011414 
011416 
011422 
011426 
011430 

01143; 

011434 



012737 
005737 
001407 
012737 
020227 
003750 
000403 
020227 
003744 
005703 
001402 
000241 
000401 
000261 
000207 



000010 002302 
002226 

000012 002302 
000200 



000176 



010037 
010137 
005737 
OO1403 
004737 
010001 
005004 
00500J 
010205 
011264 
011164 
022221 
001401 
005203 
062704 000002 



002304 
002306 
003134 

01731b 



002322 
002466 



27$ 



30$ 
50$ 



MOV 

TST 

3EQ 

MOV 

CMP 

BLE 

BR 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



08. .RAMSIZ 

EXTFEA 

25* 

#10, , RAMSIZ 

R2.0RMCHEND 

10$ 

27$ 

R2.0RMCHEND -2 

10$ 

R3 

30$ 

50$ 

PC 

CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



{ASSUME EXTFEA NOT SET 

lIS THE SOFTWARE EXTENDED FEATURES SET 

i BR. IF NOT SET 

{SET RAMSIZ FOR EXTEND FEATURES 

t AT END OF EXTENDED BUFFER 

|BR, IF NOT AT END YET 

{ AT END BRANCH 

{REACHED END YET ? 

{BRANCH TILL ALL READ 

{WAS AN ERROR FOUND ? 

{BRANCH IF NOT 

{CLEAR CARRY TO SHOW ERROR 

,AND EXIT 

{SHOW GOOD COMPARE 

; RETURN 



ROUTINE TO COMPARE f* WRITE CHARACTERISTICS EXPD AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
jERROR PRINT ROUTINES. 

{INPUT: 



OUTPUT 



RO 
Rl 
R2 



CARRY 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON' T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER AODRESS OF RECV 



CKMSG: 



10$ 



15$ 



25$ 



SAVREG 

MOV RO, RCVHIADD 

MOV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV R0.R1 

CLR R4 

CLR R3 

MOV R2.R5 

MOV CR2),EXPMSG(R4) 

MOV (Rl ),RPCMSG(R4) 

CMP (RL')»,(R1)» 

BEQ 25$ 

INC R3 

ADD 02,° 4 



-.SAVE R1-R5 UNTIL NEXT RETURN 

;SAVE RECV HIGH ADDRESS 

j SAVE RECV LOW AODRESS 

{TESTING ABOVE 28K? 

j BR IF NO 

iRETURN ADORESS BIASED TO PAR6 IN RO 

{GET RETURNED ADORESS BIASED TO PAR6 

{WORD IN BUFFER 

{CLEAR ERROR SEEK Fl AC 

{GtT EXPD BUFFER ADDRESS 

{SAVE EXPO FOR ERROR REPORT 

{SAVE RECV FOR ERROR REPORT 

{EXPD EQUAL PECV? 

;BR IF YES 

j SET ERROR SEEN Fi.AG 

;POINT TO NEXT UOtfD ADDRESS 



F 



^ r 

J.J 



TSV3 ■ GLOBAL AREAS 


MACRO Mil 13 O 


CKMSG 


- COWARE write 


CHAR. MESSAGE 


1317 


0114 ,0 


020427 


000014 


1318 


011M4 


003764 




1319 


Oil* 46 


032765 


000200 000012 


1320 


Oil* 54 


0O1403 




1321 


011456 


020427 


000016 


1322 


011462 


003755 




1323 


011464 


005703 




1324 


0.1466 


001402 




1325 


011470 


0O0241 




1326 


011472 


000401 




1327 


0114 74 


0O0261 




1328 


011476 


000207 




1329 








1330 








1331 








1332 








1333 








1334 








1335 








1536 








1337 








1338 








1339 








1340 








13*11 








1342 








1343 








1344 








1345 








1346 








134? 








1348 








1349 








1350 








1551 








1552 








1353 








1354 








1355 








1356 


011500 






1357 


011500 






i35« 


0115O4 


020327 


000144 


1359 


011510 


003412 




1360 


011512 


012703 


000144 


1361 


011516 








011516 


012746 


011632 




011522 


012746 


000001 




011526 


010600 






011530 


104417 






011532 


062706 


000004 


1362 


011536 


010037 


002304 


1363 


011542 


010137 


002306 


1564 


011546 


0O5757 


003134 


1365 


011552 


001403 




1366 


011554 


0O4757 


017316 


156 7 


011560 


010001 




1568 


01 1562 


QQ5QQ4 





6 FEB 84 

BUFFERS 



50$j 



55$; 
60$: 



17: 14 



CMP 
BLE 
BIT 

HFQ 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



SEQ 053 



R4.014 iDONE FIRST 7 WORDS? 

15$ |BR IF NO 

♦X2 ( EXTF,XST2(R5)|IS EXTENDED FEATURES SET IN EXPO? 

50$ jBR IF NO 

R4.016 iDONE EXTENDED FEATURES WORD? 

15$ iBR IF NO 

R3 i ANY ERRORS SEEN? 

55$ iBR IF NO 

iSET FAILURE 
60$ i 

I SET SUCCESS 
PC jRETURN 

CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT} 





CARRY 


SET MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 


i IMPLICIT OUTPUT: 




EXPMSG 


BUFFER IS SET TO EXPO DATA 




RECMSG 


BUFFER IS SET TO RECV DATA 




RCVHIADO SET TO HIGH ORDER ADDRESS OF RECV 




RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


CKMSG2: 


> 
• 






SAVREG 


iSAVE R1-R5 UNTIL NEXT RETURN 




CMP 


R3,*RECMSG-EXPMSGiM0 IS COUNT ABOVE MAX ALLOWED? 




BLE 


51 iMO BR IF NO 




MOV 


#RECMSG EXPMSG ♦RStMD 




PRINTF 


•OEBUGMSG I ®«0 




MOV 


♦OEBUGMSG.-(SP) 




MOV 


♦1, (5F) 




MOV 


SP.RO 




TRAP 


C*PNTF 




ADO 


♦4,SP 


5$: 


MOV 


RO. RCVHIADO iSAVE RECV HIGH AOORESS 




MOV 


Rl.RCVLOAD j SAVE RECV LOW ADDRESS 




TST 


KTENA8LE i TESTING ABOVE 28K? 




BEQ 


10$ iBR IF NO 




JSP 


PC.SETMAP jRETURN AOORESS BIASED TO PAR6 IN RO 




MOV 


R0.R1 iGET RETURNt.0 ADDRESS BIASED TO PAR6 


1Q»i 


CLR 


R4 j WORD IN BUFFER 



C5 



5G2 


,l0 gM 


m™ 


»m*Mu 


&B» 


m-* i7,ia 


SEQ 054 


1569 


011564 


005005 






CLR 


R5 iCLEAR ERROR SEEN FLAG 


1370 


011566 


111264 


002322 




15$ i MOVB 


(R2).EXPMSG(R4) iSAVE EXPD FOR ERROR REPORT 


1371 


011572 


111164 


002466 




MOVB 


(R1),RECMSG(R4) jSAVE RECV FOR ERROR REPORT 


1372 


011576 


122221 






CMPB 


(R2)»,(RD» j EXPD EQUAL RECV? 


1373 


011600 


001401 






BEQ 


25$ |BR IF YES 


1374 


011602 


005205 






INC 


R5 j SET ERROR SEEN FLAG 


1375 


011604 


062704 


000001 




25$: ADD 


•1.R4 iPOINT TO NEXT BYTE 


1376 


011610 


020403 






CMP 


R4.R3 jDONE ALL BYTES? 


1377 


011612 


002001 






BGE 


50$ |BR IF YES 


1378 


011614 


000764 






BR 


15$ jOO NEXT 8YTE 


1379 


011616 


005705 






50$: TST 


R5 j ANY ERRORS SEEN? 


1380 


011620 


001402 






BEQ 


55$ iBR IF NO 


1381 


011622 


000241 






CLC 


tSET FAILURE 


1382 


011624 


000401 






BR 


60$ i 


1383 


011626 


000261 






55$: SEC 


iSET SUCCESS 


1384 


011630 


000207 






60$: RTS 


PC i RE TURN 


1385 














1386 


011632 


120 


122 


117 


DEBUGMSG: 


.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDSD- 


1387 


011722 


045 


116 


045 


FFRCMs .ASCII 


/*N*A ***/ 


1388 


011733 


040 


040 


124 


ERCM: .ASCI/ 


/ TSSR ERROR COOE REC'D • / 


1389 


011766 


056 


056 


056 


SIMSG: .ASCIZ 


/ AFTER DOING SOFT INITV 


1390 


012021 


j.24 


105 


123 


TINERR: .ASCIZ 


/TEST: .,,/ 


1391 










.EVEN 




1392 














1393 










j * 




1394 














1395 










, PRINT ROUTINE 


TO FATAL SOFT INIT ERRORS 


1396 














1397 










j INPUT : 




1398 














1399 










! Rl 


CONTENTS OF TSSR AT ERROR 


1400 














1401 










[SIDE EFFECTS: 




1402 














1403 










j EXECUTES DROP UNIT TO CEASE TESTING 


1404 














1405 










• - 




1406 














1407 


012034 
012054 








BGNMSG 
SFIMSG:: 


SFIMSG 


1408 


012034 


004737 


006024 




JSR 


PC.PRITSSR i PRINT CONTENTS OF TSSR REGISTER 


1409 


012040 


004737 


017202 




JSR 


PC.CKDROP j DROP UNIT, IF ALLOWED 


1410 


012044 
012044 








ENOMSG 
L 10003: 






012044 


104423 






TRAP 


C$MSG 


14U 














1412 










1 * 




1413 










jPRINT ROUTINE 


TO PRINT THt CONTENTS OF 


1414 










jTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


1415 














1416 










j INPUTS? 




1417 














141* 










i Rl 


TSSR CONTENTS 


1419 

1420 

1421 










l R4 


ADDRESS OF CQMMANO PACKET 










• , 




1422 















isao 



D^ : 



J 



TSV3 GLOBAL AREAS MACRO M1113 06-FF.B-84 17:14 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



1423 012046 
012046 

1424 012046 

1425 012052 

1426 012056 

1427 012062 
012062 



1428 
1429 
1*430 
1431 
1432 
1433 
14 34 
1435 
1436 
1437 
1438 
1439 
1440 

1441 

1443 
1444 



1445 
1446 
1447 
1445 
1449 
1450 
1451 
1452 
1453 
1454 
1455 

1456 
1457 



1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
14 70 



012064 
012064 
012064 
012070 
012074 
012100 
012100 
012100 



012102 
012102 
012102 
012106 
012106 
012106 



RGNMSG PKTSSR 



004737 
012700 
C04737 



006024 
000004 
007370 



PKTSSR: j 




JSR 


PC.PRITSSR 


MOV 


04. RO 


JSR 


PC.PRIPKT 


ENOMSG 




L 10004: 





SEQ 055 



jPRINT THE CONTENTS OF T3SR REGISTER 

iNO. OF WORDS IN PACKET 

j PRINT THE CONTENTS OF COMMAND PACKET 



012062 104423 



TRAP 



C*MSG 



^RINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET, 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



1 - 



004737 
012700 
004737 



104423 



006024 
000002 
007570 



RGfUSG 

PKTGETS: : 

JSR 
MOV 
JSR 
ENOMSG 

L 10005: 

TRAP 



PKTGETS 

PC.PRITSSR 

*2,R0 

PC.PRIPKT 



C$MSG 



,°RINT THE CONTENTS OF TSSR REGISTER 
|N0. OF WORDS IN GET STATUS PACKET 
j PRINT THE CONTENTS OF COMMANO PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



004737 
104423 



006024 



SFFMSG: 



L 10006: 



Rl 
R4 



BGNMSG 

JSR 
ENOMSG 

TRmP 
,3BTTL 



TSSR CONTENTS 

ADDRFSS OF COMMAND PACKET 



SFrMSG 
PC.PRITSSR 

CthSG 
PKTMES 



jPRINT CONTFNTS OF TSSR REGISTER 



PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR ANO MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTFNTS OF TSSR 

«2 LOW ORDER MESSAGE BUFFER 

R5 HIGH ORDER MESSAGE BUFFER ADDRESS 

MOTt: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



E 



r 
-J 



TSV3 - GLOBAL AREAS 
PKTMES • PRINT TSSR 



14 71 
1472 

1473 

14 74 
1475 
1476 

1477 



1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 

1491 
1492 
1493 
1494 



1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 

1509 
1510 
1511 
1512 
1513 
1514 



1515 
1516 
151/ 
1518 



012110 
012110 
012110 
012114 
012116 
012120 
012124 
012124 
012124 



012126 
012126 
012126 
012132 
012136 
012142 
012142 
012142 



012144 
012144 
012144 
012150 
012154 
012156 
012162 
012166 
012166 
012166 



MACRO M1113 06-FE8-84 17:14 
AND MESSAGE BUFFER 



SEQ 056 



PKTMES 



BGNMSG PKTMES 



004 737 006024 

010200 

010301 

004737 014242 



104423 



1.10007 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 
.SBTTL 



PC,PRI T SSR 
R2.R0 
R3.R1 
PC.PRMESS 



jPRINT CONTENTS OF TSSR 
t LOW OROER AOORESS 
jHIGH ORDER ADDRESS 
jPRINT THE MESSAGE BUFFER 



CtMSG 
ADDSSR 



- PRINT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR ANO A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010274 
016501 000002 
004737 006024 



104423 



ADDSSR;: 



BGNMSG ADDSSR 



L10010: 



JSR 
MOV 
JSR 
ENOMSG 

TRAP 

.SBTTL 



PC.PRITADD 

TSSRCR5).R1 

PC,PRITSSR 



jPRINT MEMORY TEST ADDRESS 

iGET CURRENT TSSR 

iPRINT THE CONTENTS OF TSSR REGISTER 



CiMSG 

MSGEXP - PRINT WRITE CHAR. EXPO RECV MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



012700 000007 

005737 002226 
001402 

012700 000010 

004737 014552 



104423 



MSGEXP: 


» 






MOV 


07.R0 




TST 


EXTFEA 




BEQ 


55 




MOV 


08. ,R0 


5$: 


JSR 
ENOMSG 


PC.PRMSGEXP 


I 1001 1: 








TRAP 


C>MSG 




.SBTTL 


FIFEXP - P 



jASSUME NO EXT FEATURES 

lEXT FEATURES SET? 

I BR IF NO 

lEXT FEATURE BUFFER IS 8 WORDS 

jPRINT EXPD/RECV MESSAGE BUFFERS 



PRINT FIFO EXP/RECV DATA 



jPRINT ROUTINE TO PRINT FIFC LXP/RECV DATA 



TSV3 - GLOBAL AREAS MACRO Ml 115 
FIFEXP - PRINT FIFO EXP/RECV DATA 



06-FEB-84 17:14 



5 



SEQ 057 



1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 



Rl 



1529 



1530 
1531 
1532 



1533 

1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 

1550 
1551 
1552 
1553 



012170 
012170 
012170 
012170 
012172 
012176 
012202 
012204 
012206 
012212 
012212 
012216 
012222 
012224 
012226 
012232 
012234 
012240 
012240 
012240 
012242 
012311 



1554 
1555 



012350 
012350 
012350 
012354 
012356 
012360 
012360 
012362 
012366 
012370 
012372 
012376 
012400 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



- BYTE COUNT 



IMPLICIT INPUTS; 



EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



5 - 



FIFEXP: 



BGNMSG FIFEXP 



010046 
012746 
010600 
104415 
062706 
000/66 
012700 



012242 
000002 



000006 

012311 
OOOCOl 



000004 
015122 



116 
116 



045 
045 



L10012: 

FIF1MSG: 
FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENOMSG 

TRAP 



0FIF1MSG.R1 

Rl.-(SP) 

0FIF1M5G,-(SP) 

•2,-CSP) 

SP,RO 

CIPNTX 

♦6.SP 

0FIF2MSG 

♦FIF2MSG,-(SP) 

01,-CSP) 

SP.RO 

C5PNTX 

♦4.SP 

Rl.RO 

PC.PRBYTEXP 



jPRINT BYTES TRANSFERRED 



j PRINT HEADER MSG 



jGET BYTE COUNT 

jPRINT FIFO BYTES IN ERROR 



.EVEN 
.SBTTL 



CJMSG 

.ASCIZ 

.ASCIZ 



#N*A NUMBER OF BYTES TRANSFERRED « #02 
*N*A FIFO DATA BYTES V! ERROR:' 



MSGSTAT - PRINT STATUS HEADER ANO MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



J 



IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVEO MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



i - 



012701 012412 

012100 

001410 



000001 



000004 
000012 





BGNMSG 


MSGSTAT 


MSGSTAT 


• j 






MOV 


OSTATCOD.Rl 


10$: 


MOV 


(R1)*,R0 




BEQ 


20$ 




PRINTX 


RO 




MOV 


R0.-C5P) 




MOV 


•1. CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


*4,SP 




BR 


10$ 


20i: 


MOV 


010. ,R0 



<ASCII ADDRESS TABLE 
j DONE ALL MSG LINES? 
iBR IF YES 
jPRINT STATUS BIT NAMES 



j DO ANOTHER MSG LINE 

j NUMBER OF WORDS IN A READ STATUS BUFFER 



TSV3 - GLOBAL AREAS 

MSGSTAT - PRINT STAIUS HF.AOE 



MACRO 



M1113 \ 
AND MF.S! 



Sfcl 6 ! 



[Offers' 



14 



c 



j5 



SEQ 058 



1556 
1557 



1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 

1581 

1582 
1583 
1584 



012404 
012410 
012410 
012410 

012412 
012430 
012472 
012563 
012654 
012745 
013007 



1585 
1586 
1387 
1588 



1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 



013064 

013064 

013064 

013070 

013072 

013071 

013074 

013076 

013102 

01310* 

013106 

013112 

013114 

013120 

013124 

013124 

013124 

013126 
013146 
013221 
013320 
013417 
013516 
01J615 
013714 



004 737 014552 



104423 

012430 012472 

045 116 

045 116 

045 116 

045 116 

045 116 

045 116 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

013146 
045 

045 
045 
045 
045 
045 
045 



01bl26 



000001 



000004 

00001? 
014552 



013221 
116 
116 
116 
116 
116 
116 
116 



012563 
045 
045 
045 
045 
045 
045 



013320 
045 
045 

045 
045 
045 
045 
045 



L10013: 



JSR 
ENDMSG 



TRAP 



STATCOD: 



H 
2* 
3$ 

4$ 
5$ 
6$ 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



*N*A 
#N*A 
*N*A 
*N#A 
*N*A 
#N*A 



PC.PRMSGEXP 

CtMSG 

.WORD 1$,2$,3$,4$»5*,6$,0 



j PRINT EXPD/RECV MESSAGE BUFFERS 



Tape Bus Signals 
PARERR<15> 
IRESV2<14> 
IRESV1<13> 

Tap© Bus Signals 
DATMIS<7> 



in Word *8: ' 

IEOT <12> 

IIDENT<11> 

ICER <10> 
In Uord 09; ' 
ILW<6> 0UTR0Y<5> 



IFMK <9> 
IHER <8> 
ISPEED<7> 



IRDY<6> 
I0NL<5> 
IL0P<4> 



IRWD<2>' 
IFBY<1>* 
IFPT<0>' 



INRDY<4> 



.EVEN 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 



j PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

; IMPLICIT INPUTS; 

j EXPMSG - EXPECTED MESSAGE BUFFER 

i RECMSG - RECEIVED MESSAGE BUFFER 

I RCVHIADD- RECEIVED MESSAGE BUFFER HIGH OHDER ADDRESS 

i RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG 
MSGLOOP i: 

MOV 



10$: 



20$ 



L10014 



MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSR 

ENOMSG 



MSGLOOP 

♦L00PC00.R1 

CR1)*.R0 

201 

RO 

RO.-(SP) 

♦ l.-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

101 

♦10. .RO 

PC.PRMSGEXP 



jASCII 
j DONE ALL rlSG 
jBR IF YES 
jPRINT STATUS 



TABLE 
LINES? 

BIT NAMES 



iDO ANOTHER MSG LJNE 

jNUMBER OF WORDS IN A READ STATUS BLUFFER 

j PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



CiHSG 



LOOPCOO: 
1$!. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



21 

3$ 
At 

5$ 

61 

7$ 



.WORD 
*N*A Tap* 



1$,2«,3$»4$,5«,6$ ,71,0 
Bus Loopback Signals in Word 08 

IRESV2<14> 
IWRT 

If.GIT 
ITAD1 
IRWU 



*NtfA 
4N4A 

*N*A 

*N*A 

*N*A 

SN*A 
EVEN 
SBTTL MSGSU6 - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PARERR<15> 

IH1SP->IE0T<12> 
IWTM ->IFMK<09> 
ITAD0«>IRDY<06> 
IRFW ->IDBY<03> 
IGO ->IFPT<00>' 



>IIDF'JT<11> 

>IHER <08> 
>IONL <05> 
>IRUD <02> 



IRESV1<13 
IREV «>ICER <10 
IFAD ->ISPEED<07 
IERASE->ILDP <04 
IFEN ->IFBY <01 



jPRINT ROUTINE 



TO PRINT MESSAGE BUFFER EXPD/RECV 



5 



TSV3 • GLOBAL AREAS MACRO mil? 06 -FEB -84 17:14 

HSGSUR PRINT WRITE SUBSYSTEM MESSAGE SUFFER 



SEQ 059 



1603 
1604 
1603 
1606 
1607 
1608 
1609 
1610 
1611 



1613 
1614 

1615 



1616 
16X7 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 

1630 
1631 
1632 
1633 
1634 



1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
164 7 
1648 
1649 
1650 
1651 
1652 
1653 



1 



013742 
013742 
013742 
0' 3746 
.13752 
013752 
013752 



IMPLICIT INPUTSs 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 
004 737 



104423 



000012 
014552 



MSGSUB: 



L 10015: 



BGNMSG MSGSUB 



MOV 
JSR 
ENDMSG 

TRAP 

.SBTTL 



010. ,R0 
PC.PRMSGEXP 



j SIZE OF WRITE SUBSYSTEM BUFFER 
I PRINT EXPD/RECV MESSAGE BUFFERS 



C«MSG 

MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO •• MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



013754 
013754 
013754 
013760 
013764 
013770 
013774 
013774 
013774 



004737 
013701 
013702 
004737 



104423 



01C160 
002232 
002234 
0077*2 



MEMADD; j 



BGNMSG MEMADD 



L10016: 



JSR 
MOV 
MOV 
JSR 
ENDMSG 

TRAP 
.SBTTL 



PC.PRIADD 
EXP0.R1 
RECV.R2 
PC.PRIXOR 



;PRINT MEMORY ADDRESS IN ERROR 
»GET EXPO DATA 
jGET RECEIVED DATA 
; PRINT EXPD/RECV 



CtMSG 

PRAMPKT - PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSI2-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



TSV3 • GLOBAL AREAS MACRO M1113 
PRAMPKT - PRINT RAM AND PACKET DATA 



06-FEB-6A 17; 14 



15 



SEQ 060 



1654 








1655 








1656 


013776 






1657 


013776 






1658 


014002 


012701 


002242 


1659 


014006 


005002 




1660 


014010 


122124 




1661 


014012 


001005 




1662 


014014 






1665 


014024 


000436 




1664 


014026 


116105 


177777 


1665 


014032 


116403 


177777 


1666 


014036 






1667 


014046 


042703 


177400 


1668 


014052 


116137 


177777 002234 


1669 


014060 


116437 


177777 002232 


1670 


014066 








014066 


010346 






014070 


013746 


002232 




0140/4 


013746 


002234 




014100 


010246 






014102 


012746 


014156 




014106 


012746 


000005 




014112 


010600 






014114 


104414 






014116 


062706 


000014 


1671 


014122 


005202 




1672 


014124 


005737 


002302 


1673 


014130 


001404 




1674 


014132 


020237 


002302 


1675 


014136 


003724 




1676 


014140 


000403 




1677 


014142 


020227 


000010 


16 76 


014146 


002720 




1679 


014150 


005037 


002302 


1680 


014154 


000207 




1681 








1682 


014156 


045 


116 045 


1683 








1684 








1685 








1686 








1687 








1688 








1669 








1690 








1691 








1692 








1693 








1694 








1695 








1696 








1697 








1698 








1699 








1700 








1?01 


oiA^e 







PRAMPKT 


• 








SAVREG 




{SAVE R1-R5 UNTIL NEXT 




MOV 


ORAMDATA.Rl 


{DATA FROM THE RAM 




CLR 


R2 


jINIT BYTE NUMBER 


5$: 


CMPB 


(R1)»,(R4)* 


{COMPARE EXPECTED, REC 




BNE 


7$ 


{BR IF NO MATCH 




FORCERROR 7$,N0TSSR 






BR 


10$ 


{SSD 


7$: 


MOVB 


-1(R1),R5 


{GET RECV RAM DATA 




MOVB 


-1(R4),R3 


{GET EXPD PACKET DATA 




XOR 


R5.R3 


jXOR EXPD/RECV 




BIC 


0177400, R3 


jLOU BYTE ONLY 




MOVB 


-KRD.RECV 


{GET RECEIVED RAM DATA 




MOVB 


~1(R4),EXPD 


{GET EXPECTED RAM DATA 




PRINTS 


OR AMASC . R2 , REC V , EXPO , R3 






MOV 


R3, -CSP) 






MOV 


EXPD.-CSP) 






MOV 


RECV.-CSP) 






MOV 


R2,-(SP) 






MOV 


ORAMASC.-CSP) 






MOV 


05, -CSP) 






MOV 


SP,RO 






TRAP 


C$PNTB 






ADD 


014 t SP 




10$: 


INC 


R? 


jUFOATE BYTE COUNT 




TST 


RAhSIZ 


{DEFAULT TO 8.? 




BEQ 


151 


{BR IF YES 




CMP 


R2.RAMSIZ 


jD0N£ ALL BYTES? 




RLE 


51 


{BR IF NO 




BR 


25$ 


} 


15$: 


CMP 


R2.08. 


{LONE. DEFAULT NJM8ER 


20 i: 


BLT 


5$ 


i BR IF NO 


25$: 


CLR 


RAMSI7 


{SET DEFAULT RAMSIZ 




RTS 


PC 


{RETURN 



BYTES? 



045 RAMASC: .ASCIZ ' *NjA BYTE: #D2*A RAM: *03*A Pocket: *03*A X0R:*03 
.EVEN 
.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PR! iTS THE CONTENTS OF 

THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY 

TSV-05. 



THE 



INPUT : 



J 



RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Rl IS IGNORED IF KTENABlE FLAG IS CLEAR 

I THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 



J5 



TSV3 GLOBAL AREAS MACRO M1113 06 -FEB -84 17:14 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



170? 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 



1711 



171? 
1713 
1714 
1715 
1716 
1717 
1718 



1719 
1720 
1721 
172? 
1723 
1724 



726 
??. i 
728 
/?*•> 

730 
1/51 
1732 
1733 
1734 
1735 
1736 
1/3/ 
17 38 
1739 



014242 
014246 
014250 
014254 
014256 
014260 
014262 
014264 
01426b 
014266 
014270 
014272 
014276 
014302 
014304 
014306 
014312 
014312 
014316 
014322 
' •' 324 

Oi^erc 

014?32 
014334 
014336 
014340 
014342 
014346 
014350 
014350 
014352 
014354 
014360 
014.364 
014366 
014370 
014374 
014376 
014402 
014404 
01440b 
014414 
014416 

014420 
014465 
014523 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
0106 OC 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 
045 
045 



003134 



10$: 



014420 
000003 



000010 

014465 
000001 



000004 



017316 



014523 
000003 



000010 
000007 

000200 



116 
U6 
116 



20$; 



50$: 

045 PROASC 
04 5 PR1ASC 
045 PRASCi 



i ♦ 



SAVREG 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 

.ASCIZ 
.AL'CTZ 

.ASCI.' 
.FVEN 

.SBTTL 



R0.R5 

KTENABLE 

10$ 

Rl 

R1.R3 

RO 

Rl 

*PR0ASC,R1,R5 

R5.-CSP) 

Rl.-CSP) 

OPROASC, -CSP) 

*3,-CSP) 

SP.RO 

C$PNTX 

*10»SP 

0PR1ASC 

0PR1ASC.-CSP) 

•l.-CSP) 

SP.RO 

CIPNTX 

04, SP 

R4 

R5.R1 

R3.R0 

20$ 

PC.SETMAP 

R0.R5 

*PRASC,R4,CR5) 

CR5)»,-(SP) 

R4, -(SP) 

OPRASC.-CSP) 

<»3,-(SP) 

SP.RO 

C$PNTX 

♦10, SP 

R4 

R4,*7 

50$ 

20$ 

*X2.EXTF,XST2( 

20$ 

PC 



SEQ 061 



{SAVE THE REGISTERS 

tSAVE LOW ORDER ADDRESS 

{ADDRESS ABOVE 28K7 

{BR IF YES 

{SET HIGH ORDER ADDRESS TO 

{SAVE HIGH ORDER ADDRESS 

{SHIFT BIT15 TO C BIT 

{SHIFT TO HIGH ORDER FOR PRINTOUT 

{PRINT MESSAGE BUFFER ADDRESS 







{PRINT HEADER FOR CONTENTS 



{NUMBER OF THE NEXT WORD 

{COPY LOW ORDER ADDRESS 

{COPY HIGH ORDER ADDRESS 

jBR IF NOT ABOVE 28K 

{SETUP PAR ADDRESS IN RO 

{GET PAR FORMAT ADDRESS ABOVE 28K 

{PRINT THE CONTENTS OF MEMORY BUFFER 



{NUMBER OF THE NEXT 
{DONE ALL YET ? 
{BRANCH IF ALL DONE 
{PRINT FIRST 7 WORDS 
R3)iEXTENDE0 FEATUTES ON ? 
{PRINT EXTENDED STATUS WORD 
{RETURN 



'#N*A Message Buffer Address - *01*05 
' *N*A Message Buffer Contents:* 
**N*A Word*DJ*A: HO' 



PRMSGfcXP 



PRINT EXPD/RECV MESSAGE BUFFERS 



{ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



RO 



NUMBER OF WORDS IN BUFFER 



{IMPLICIT INPUTS: 



I<5 



TSV3 • GLOBAL AREAS MACRO M1113 06-FEB-B4 IV: 14 
PRM3GEXP - PRINT EXPU/RECV MESSAGE BUFFERS 



SEQ 062 



1740 

1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 



1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 



1762 
1763 
1764 
1765 
1766 
176 7 
1768 
17(9 
1770 
1771 
1772 
1773 
1 7 74 



014552 
014552 
014556 
014560 
014564 
014566 
014572 
014574 
014576 
014576 
014600 
014602 
014606 
0i4612 
014614 
014616 
014622 
014622 
014626 
014632 
014634 
014636 
014642 
014644 
014650 
014654 
014656 
014660 
014670 
014670 
014672 
014674 
014676 
014700 
014704 
014710 
014712 
014714 
014720 
014722 
014724 
014726 
014730 

014732 
014777 
015035 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012 746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
00075,-: 
00020 7 

045 
045 
045 



i 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



0023C6 
002304 



014732 
000003 



000010 

014777 
000001 



00000* 

002322 
002466 



015035 
000005 



000014 



PRMSGEXP:: 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
BGE 
BR 

50$: RTS 



116 
116 
116 



045 PRMSGO 
045 PRMSG1 
045 PRMSG2 



i * 



.ASCI/ 

.ASCI/ 
.ASCI/ 
.EVEN 
.SBTTL 



R0,R5 

RCVLOADD.RO 

R0.R4 

RCVHIADD, Rl 

RO 

Rl 

0PRMSG0.R1.R4 

R4.-CSP) 

Rl.-CSP) 

OPRMSGO, -(SP) 

03, -(SP) 

SP,R0 

C$PNfX 

010, SP 

0PRMSG1 

0PRMSG1,-CSP) 

01, -(SP) 

SP.RO 

C$PNTX 

04, SP 
R4 

0EXPMSG.R1 
♦RECMSG, R2 
CRD.RO 
(R2),R3 
R0.R3 

0PRMSG2,R4,(R1) 
R3.-CSP) 
(R2)>.~CSP) 
(Rl)f.-(SP) 
R4,~(SP) 
0PRMSG2,-(SP) 

05, (SP) 
SP.RO 
CIPNTX 
014, SP 
R4 

R4,R5 
50$ 

20$ 
PC 



» SAVE R1-R5 UNTIL. NEXT RETURN 

» SAVE NUMBER OF WORDS 

{GET RECV LOW ADCRESS 

;COPY LOW ADDRESS 

iGET RECV HIGH ADDRESS 

{SHIFT BIT15 TO C BIT 

, SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



l PRINT HEADER FOR CONTENTS 



j NUMBER OF THE CURRENT WORD 
jGET EXPD BUFFER ADDRESS 
;GET RECV BUFFER ADDRESS 
;GET EXPD 
jGET RECV 
iXOR EXPD/RECV 
♦ ,(R2)*,R3 



{NUMBER OF THE NEXT 
{DONE ALL YET? 
jBR IF YES 
{00 ANOTHER 
{RETURN 



' #N#A Message Buffer Address • *01*05' 

'tfNrfA Message Buffer Contents:' 

**N*A WORD 0*D2*A EXPD: *06«*A RECV: *06*A 



XOR: *06 



PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



{ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 



L5 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 063 



17 76 








1777 








1778 








1779 








1780 








1781 








1782 








1783 








1784 








1785 


015122 






1786 


015122 






1787 


015126 


010005 




1788 


015130 


005037 


002320 


1789 


015134 


005004 




1790 


015136 


012701 


002322 


1791 


015142 


012702 


002466 


1792 


015146 


111100 




1793 


015150 


042700 


177400 


1794 


015154 


110037 


015470 


1795 


015160 


111203 




1796 


015162 


042703 


177400 


1797 


015166 


110337 


015472 


1798 


015172 






1799 


015202 


122122 




1800 


015204 


001431 




1801 


015206 


005237 


002320 


180? 


015212 


023727 


002320 


1803 


015220 


101023 




1804 


015222 








015222 


010346 






015224 


013746 


015472 




015230 


013746 


015470 




015234 


010446 






015236 


012746 


015336 




015242 


012746 


000005 




015246 


010600 






015250 


104415 






015252 


062706 


000014 


1805 


015256 






1806 


015266 


000404 




1807 


015270 






1808 


015270 






1809 


015300 






1810 


015300 


005204 




1811 


015302 


020405 




1812 


015304 


002001 




1813 


015306 


000717 




1814 


015310 








015310 


013746 


002320 




015314 


012746 


015423 




015320 


012746 


000002 




0153c4 


010600 






015326 


104415 






015330 


062706 


000006 


1815 


015334 


000207 




1816 








1817 


015336 


045 


116 



! 



ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
RO - NUMBER OF BYTES IN BUFFER 



000010 



! INPL 


JCIT INPUTS; 






EXPMSG 


- EXPECTED MESSAGE BUFFER 


? 


RECMSG 


- RECEIVED MESSAGE BUFFER 


PRBYTEXP.. 








SAVREG 




j SAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0,R5 


j SAVE NUMBER OF BYTES 




CLR 


PRMNO 


iINIT ERROR COUNT 




CLR 


R4 


{NUMBER OF THE CURRENT BYTE 




MOV 


0EXPMSG.R1 


iGET EXPO BUFFER ADDRESS 




MOV 


0RECMSG.R2 


jGET RECV BUFFER ADDRESS 


20$; 


MOVB 


(RD.RO 


»GET EXPD BYTE 




BIC 


*tC<377>,RO 


»CLEAR UP?ER BYTE 




MOVB 


RO.PRBEXP 


{SAVE FOR ERROR REPORT 




MOVB 


CR2),R3 


>GET RECV BYTE 




BIC 


*tC<377>,R3 


iCLEAR UPPER BYTE 




MOVB 


R3, PRBREC 


;FOR ERROR REPORT 




XOR 


R0,R3 


j XOR EXPD/RECV 




CMPB 


(R1)*,(R2)* 


{EXPO • RECV? 




BEQ 


30$ 


;BR IF YES 




INC 


PRMNO 


l UPDATE ERROR COUNT 




CMP 


PRMNO ,*8. 


^PRINTED 8? 




BHI 


30$ 


iBR IF YES 


27$; 


PRINTX 


OPRBMSG , R4 , PRBEXP , PRBREC . R3 




MOV 


R3.-CSP) 






MOV 


PRBREC, -CSP) 






MOV 


PRBEXP, -CSP) 






MOV 


R4.-CSP) 






MOV 


♦PRBMSG, -CSP) 






MOV 


#5.-(SP) 






MOV 


SP,RO 






TRAP 


C$PNTX 






ADD 


014 ,SP 






FORCEXIT 50$ 


j3S0 




BR 


35$ 


<aao 


30$; 










FORCERROR 27$,N0TSSR 


ittSO 


35$; 






iSSO 




INC 


R4 


{NUMBER OF THE NEXT 




CMP 


R4.R5 


iDONE ALL YET? 




BGE 


50$ 


jBR IF YES 




BR 


20% 


;D0 ANOTHER 


50$; 


PRINTX 


OPRB TOT, PRMNO 


j PRINT TOTAL ERROR COUNT 




MOV 


PRMNO, -CSP) 






MOV 


OPRBTOT, -(SP) 






MOV 


02 , - C SP ) 






MOV 


SP.RO 






TRAP 


CiPNTX 






ADD 


06, SP 






RTS 


PC 


j RETURN 



045 PRBMSG; .ASCI/ * *N*A BtTE <ttD2tfA EXPD; *03*A RECV; *03*A XOR; *03 



M n 



J) 
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PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 064 



1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 

1835 
1836 



1837 
1838 
1839 
1840 
1841 
1842 
1843 
1344 
1845 
1846 
1847 
1848 
1849 
1850 

1851 
1852 



1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
186 7 
1868 



015423 



045 



116 



015470 000000 
015472 000000 



045 PRBTOTt .ASCIZ • *N*A NUMBER OF BYTES IN ERROR - *D2 
.EVEN 

PRBEXP: .WORD jEXPD 

PRBREC: .WORD jRECV 

.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
♦■ 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 

INPUTS; 



015474 

015474 

015474 004737 

015500 

015500 

015500 104423 



007742 



015502 

015502 

015502 004737 007612 

015506 

015506 

015506 104423 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



EXPREC:: 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENDMSG 



; PRINT THE DATA 



TRAP CIMSG 

.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



jPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENDMSG 
L 10020: 

TRAP CSMSG 



jPRINT THE DATA 



.SBTTL RAMF.RR - PRINT RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8, 



N5 



TSV5 
RAMERR 

1869 

1870 
1871 
187? 
1873 
1874 
1875 

1876 
1877 



1878 
1879 
1880 
1881 
188? 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 

190? 
1903 
1904 



1905 
1906 
190/ 
1908 
1909 
1910 
1911 
191? 
1913 
1914 
1915 
.1916 
1917 

ma 



GLOBAL AREAS 
- PWINT RAM AND 



MACRO M1113 
PACKET DATA 



06-FEB-84 17:14 



SEQ 065 



{ 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



015510 
015510 
015510 
015514 
015514 
015514 



004737 013776 



104423 



F<AMERR : : 



L10021: 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENDMSG 



j PRINT RAM/PACKET DATA 



TRAP C*MSG 

,SBTTL RAMTADD •• PRINT TEST ADDRESS, RAM AND PACKET DATA 

! PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 

INPUTS: 
j R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



015516 

015516 

015516 004737 010274 

015522 004737 013776 

0155?6 

015526 

015526 104423 



BGNMSG 

RAMTADD: t 

JSR 
JSR 
ENDMSG 

L 10022: 

TRAP 

.SBTTL 



RAMTADD 

PC.PRITADD 
PC.PRAMPKT 



{PRINT TEST ADDRESS 
j PRINT RAM/PACKET DATA 



CtMSG 
RAMEXP 



PRINT RAM RXPD/RECV DATA 



PRINT ROUTINE TU DISPLAY EXPD/RECV DATA 
INPUTS: 



PI 
R? 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROl LER RAM ADDRESS 



OlTifoO 
015530 



RAMEXP: • 



BGNMSG RAMEXP 



B6 



TSV3 ■ GLOBAL AREAS MACRO M1115 
RAHEXP • PRINT RAM EXPD/RECV DATA 



1919 015530 


042701 


17/400 


1920 015554 


042702 


17 7400 


1921 015540 


004737 


010066 


1922 015544 


004737 


007742 


1923 015550 






015550 






015550 


104423 




1924 






1925 






1926 






1927 






1928 






1929 






1930 






1951 






1932 






1933 






1934 






1935 






19.56 






1937 015552 






015552 






1936 015552 






015552 


012746 


015600 


015556 


012746 


000001 


015562 


010600 




015564 


104415 




015566 


062706 


000004 


1939 015572 


004737 


007742 


1940 015576 






015576 






015576 


104425 




1941 






1942 015600 


045 


116 


1945 






1944 






1945 






1946 






1947 






1948 






1949 






1950 






1951 






1952 






1953 






1954 






1955 






1956 






1957 015700 






015/00 






1958 015700 


010246 




1959 015702 


042702 


177400 


1960 015706 






015706 


010246 




015710 


012746 


015/40 


015714 


012 746 


000002 


C15:' 20 


010600 





06-FEB-84 17}14 



BIC 
BIC 
JSR 
JSR 
ENOMSG 



*tC<377>,Rl 
♦tC<377>,R2 
PC.PRIRAM 
PC.PRIXOR 



SEQ 066 



iSAVE EXPO RAM DATA BfTF 
I GAVE EXPO RAM DATA BYTE 
iPRINT THE RAM ADDRESS 
jPRINT THF DATA 



L 10023s 



TRAP 



CIMSG 



.SBTTL TIMtXP 



PRINT TIMER A.B ANO EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
ANO TIMER A.B HEADER MESSAGE 



INPUTS} 



Rl 
R2 



RECEIVLO DATA 
EXPECTED DATA 



TIMEXPi 



BGWSG TIMEXP 



L 10024 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENlrflSG 

TRAP 



♦TIMSGO 

♦ TIMSGO. -(SP) 

♦i.-CSP) 

SP.RO 

OPNTX 

♦4.SP 

PC.PRIXOR 



jPRINT HEADER 



jPRINT THE DATA 



045 



TIMSGO} .ASCIZ 
.EVEN 

, SBTTL 



CIMSG 

'*N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN BIT 2* 

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



PRINT ROUTINF. FOR TSSR ERRORS ON DATA TRANSIERS 
INPUTS} 



Rl 
R2 



CONTENTS Of TSSR 
DATA WRITTEN (8 BITS) 



BG^SG BADSSR 



BADSSR: j 




MOV 


R2, (SP) 


BIC 


#177400, R2 


PRINTS 


♦XFERASC.R2 


MOV 


R2. CSP) 


MOV 


•XFERASC.-(SP) 


MOV 


*?. ($P) 


MOV 


SP.RO 



jSAVE DATA TRANSFERRED 
jGET JUST ONfc BYTE 



^ 5 s S r ^M^ E rroB§ c 68 B^A 5 T R 8fisFi8s 84 



C6 



17{14 



1961 
1962 
1963 



19t>4 
1965 
1966 
1967 
1968 
1969 
1970 
1971 

1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
199? 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
201? 
2013 



015722 
015724 

015730 
015732 
015736 
015736 
015736 
015740 



015774 
015774 
016000 
016006 
016012 
016016 
016020 
016024 
016030 
016032 
016034 
016036 
016040 
016042 



104414 
062 706 

012602 
004737 



104423 
045 



000006 
006024 

116 



045 



TRAP 


CIPNTB 


A00 


♦6.SP 


MOV 


(SP)>,R2 


JSR 


PC t PRI T SSR 


EN^MSG 




L 10025 i 




TRAP 


C$MSG 


XFERASCi 


.ASCIZ '* 



SEQ 067 



>RESTORE R2 

jDECODE TSSR CONTENTS 



.SBTTL 



#N*A Data Tra*«f«rr«<* ■ *03 
GLOBAL SUBROUTINES SECTION 



Th£ GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 

.SBTTL SOTINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THP CONTROLLER 
BY WRITIMG INTO THE TSSR REGISTER. A, JR THE INIT, 
THE TSSR REGISTER IS TESTED FOR £RPu*-j. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 



R5 



OUTPUTS*. 



RO 
CARRY 



ADDRESS OF <iRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



MOV 
JSR 
BCS 
ERRDF 



♦ADDRESS, R5 

PC.SOFINIT 
CONTINUE 



, REPORT FATAL ERROR 



S0FIN1T: 



012765 
0O4737 
016500 
010004 
042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 



000000 
016250 
000002 

176277 
002300 



000002 



51: 

10$ j 



SAVREG 

MOV 

JSR 

MOV 

MOV 

BIC 

BIS 

CMP 

BEQ 

CIC 

BR 

SEC 

RTS 

.SBTTL 



I SAVE THE REGISTERS 
♦0,TSSR(R5) t DO THE INIT. 

PC.UAITF i WAIT FOR SSR 

TSSR(R5),R0 iGET THE TSSR REGISTER 

R0.R4 ,TSSR CONTENTS 

♦*C<HIADDR!0FL>,R4 

♦SSR!NGA,R4 |R4 HAS EXPECTED CONTENTS 

R4.R0 i ONLY EXPECTEO BITS SET ? 

51 iBRANCH IF OKAY 

i CLEAR THE CARRY FOR ERROR 
10$ i GO TO EXIT 

iSET THE CARRY BIT 
PC jRFTURN TO CALLER 

CHKAM8 - CHECK TSSR FQR AMBIGUITY 



IMm ^Afccft^R for^gOM 



D6 



3 06 -FEB -84 17 j 14 



SEQ 066 



2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

204 7 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

206 7 

2068 

2069 

2070 016144 



016044 
016044 
016050 
016052 
016056 
016060 
016064 
016066 
016070 
016074 
016076 
016102 
016104 
016110 
016114 
016116 
016120 
016124 
016126 
016132 
016134 
016136 
016140 
016142 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 



000200 
000001 



000 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT ; 



RO 



OUTPUT? 



RO 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAMB i 


SAVREG 






MOV 


R0.R4 : 




BIT 


♦SC,R0 t 




BNE 


5$ j 




BIT 


♦tC<NBA»OFL!SSR!H 




BNE 


40$ i 




BR 


45$ i 


5$: 


BIT 


♦SSR,RO » 




BNE 


10$ i 




BIT 


*eiT5 t R0 » 




BEQ 


40$ i 




BIC 


*tCTERCLS,R4 » 




CMP 


R4,*16 i 




BNE 


40$ i 




BR 


45$ » 


10$: 


BIT 


♦6IT5.R0 , 




BEQ 


45$ » 




BIT 


*BIT2!BIT1,R0 » 




BNE 


45$ i 


401: 


CLC 






BR 


50$ 


45$: 


SEC 




50$: 


RTS 


pc ! 




.SBTTL 


ENAINT,DSBINT - E 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
•HIAD0R>,R0 i ANY OTHER BITS SET ? 
MUST BE AN ERROR 
RETURN WITH SUCCESS 
IS REAOY BIT SET ? 
BRANCH IF REAOY BIT IS SET. 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR, IF TSSR IS OK 
AWIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
RETUF.N TO CALLER 
ENABLE/DISABLE INTERRUPTS 



I DEFAULT DISPLAY INTERRUPT HANDLERS. 

I IF DISPLAY TIME-OUT, REPORT DEV FATAL, ANO ABORT PASS. 

i OTHERWISE, SAVE DPU REGISTERS ANO DISMISS, 



j BIT DEFINITIONS FOR "INTMASK" ANO "INTFLAG" BYTES: 



I0KCKIN-BIT7 
IOKSTP-BITO 



i DON'T CHECK FOR BAD INTERRUPTS 
j EXPECT "STOP" INTERRUPT. 



TEST WILL, 



jINTFRRUPT MASK - SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 



E6 



TSV3 - GLOBAL AREAS MACRO M1U3 06-FEB-84 17; 14 
ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



SEQ 069 



2071 






2072 016145 


000 




2073 






2074 






2075 016146 


000000 




2076 






2077 016150 


000000 




2078 






2079 






2080 016152 


010046 




2081 016154 


013700 


002210 


2082 016160 


012720 


016216 


2083 016164 


012720 


000340 


2084 016170 


012600 




2085 016172 


011646 




2086 016174 


012766 


000000 000002 


2087 016202 


000002 




2088 






2089 






2090 016204 


011646 




2091 016206 


012766 


000340 000002 


2092 016214 


000002 




2093 






2094 






2095 016216 






016216 






2096 016216 


012737 


000001 002224 


2097 016224 


105037 


016145 


2098 016230 


132737 


000001 016144 


2099 016236 


001003 




2100 016240 


152737 


000001 016145 


2101 






2102 






2103 016246 






2104 016246 






016246 






016246 


000002 




2105 






2106 






2107 






2108 






2i09 






2110 






211) 






2112 






2113 






2114 






2115 






2116 






2117 






2118 






2119 016250 


000401 




2120 016252 






016252 


104422 




2121 016254 


012746 


011000 


2122 016260 


016500 


000002 


2123 016264 


105700 





I INTERRUPT FLAG -- SAYS WE GOT ONE C IF POSITIVE) 
INTFLAG: .BYTE 

j SAVED INTERRUPT VECTOR; 
INTVEC: .WORD 
j SAVE CPU PC 
INTCPC; .WORD 



j SUBROUTINE TO ENABLE INTERRUPTS; 
ENAINT; MOV RO,-CSP) |SAVE RO 

IVEC.RO 

tflNTR.(RO)* 

OPRI07.CR0)* 

(SP)*,RO 

(SP).-(SP) 

00,2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



jGET POINTER TO VECTORS 
;SET \P INTERRUPT VECTOR 

jRESTORE RO 

» SET CPU TO LEVEL 



{SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 



DSBINT: MOV 
MOV 



CSP).-(SP) 

*PRI07,2C$r"> 



INTR; 



RTI 
,SBTTL 

6GNSRV 

MOV 

CLRB 

BITB 

BNF. 

BISB 



INTR 
INTft 



INTERRUPT HANDLERS 

iDEFINE INTERRUPT ENTRY 



Ol.INT'ui-CV jSET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLnC ; CLEAR FLAG TO SAY WE GOT INTERRUPT 

OIOKSVP.INTMASK jEXPECTING STOP INTERRUPT? 

li tBR IF YES 

OIOKSTP, INTFLAG tNO, SET THE ERROR FLAG. 



,SAVE REGISTERS, MSG BUFFER, ETC. 
1$: 

ENDSRV 
L 10026; 

RTI 

.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS; 

ADDRESS OF FIRST DEVICE REGISTER 



R5 
OUTPUTS; 



WAITF 



li: 

21: 



RO 
CARRY 



BR 

BREAK 

TRAP 

MOV 
MOV 
TSTB 



CONTENTS OF LAST TSSR READ 

SET READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



II 

CIBRK 

♦11000, -CSP) 
TSSRCR5),R0 
RO 



»NOP WHEN SUPER FIXED 

j DO A SUPVSR BREAK FIRST, 

t 25-APRIL-83 REV B 1100 MSEC TIMER 
iREAD THE TSSR REGISTER 
{TEST FOR READY BIT SET 



TSV3 - GLOBAL AREAS MACRO M1113 
WAITF - WAIT FOR SUBSYSTEM READY 



06-FEB-84 17:14 



F6 



SEQ 070 



2124 








2125 


016266 


100420 




2126 


016270 








016270 


012727 


000001 




016274 


OOOOOO 






016276 


013727 


002116 




016302 


OOOOOO 






016304 


005367 


177772 




016310 


001375 






016312 


005367 


177756 




016316 


001367 




2127 


016320 


005316 




2128 


016322 


001356 




2129 


016324 


000241 




2130 


016326 


000401 




2131 


016330 


000261 




2132 


016332 


005326 




2133 


016334 


000207 




2134 








2135 








2136 








2137 








2138 








2139 








2140 








2141 








2142 








2143 








2144 








2145 








2146 








2147 








2148 








2149 








2150 








2151 








2152 








2153 


016336 






2154 


016336 


004737 


016250 


2155 


016342 


103014 




2156 


016344 


004737 


016044 


2157 


016350 


103GO6 




2158 


016352 


032700 


100000 


2159 


016356 


001405 




2160 


016360 


032700 


074000 


2161 


016364 


001402 




2162 


016366 


000241 




2163 


016370 


000401 




2164 


016372 


000261 




2165 


016374 


000207 




2166 








2167 








2168 








2169 








2170 








2171 








217c? 











BMI 


3$ 




DELAY 


1 




MOV 


*1,(PC)* 




.WORD 







MOV 


L$DLY,CPCV 




.WORD 







DEC 


-6CPC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


.-20 




DEC 


CSP) 




BNE 


2$ 




CLC 






BR 


4$ 


3$: 


SEC 




4$: 


DEC 


(SP). 




RTS 


PC 



I EXIT ON STOP FLAG. 
I WAIT 100 USEC 



{REDUCE OtLAY COUNT 

{RETRY LNTIL TIMER EXPIRES 

i C • 0, CONTROLLER STILL RUNNING... 

i... OR HUNG-UP AFTER 300 MSEC. 

I C » 1, CONTROLLER IS STOPPED. 

I RESTORE STACK WITHOUT CHANGING CARRY BIT 



.SBTTL CHKTSSR - CHECK TSSR FOR RLADY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

ANO TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



*5 



OUTPUT: 



RO 
CARRY 



ADDRESS OF CSR REGISTERS 



CONTENTS OF TSSR 

SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



CHKTSSR: 



10$ 

15* 
20$ 



JSR 

BCC 

JSR 

BCC 

BIT 

BEQ 

BIT 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL XNXM 



PC, WAITF 

20$ 

PC.CHKAMB 

10$ 

OSC.RO 

15$ 

*<SCE!BIE!RMRJNXM>,RO 

15$ 

20$ 

PC 



OUT 



j ROUTINE TO 
j ON RETURN, 



TEST FOR 

IF "C" • 

"C" ■ 



jWAIT FOR READY 

{BRANCH IF TIME 

;TSSR AMBIGOUS? 

iBR IF YES 

{SPECIAL CONDITION SET? 

iBR IF NO 

{ANY ERROR BITS SET? 

i BR IF NO 

{SET FAILURE 

{SET SUCCESS 
{RETURN TO CALLER 
- CHECK FOR NONEXISTENT MEMORY 

A NEXM IN THE RANGE CR1) THRU (R2)» 
1. (Rl) • NEXM ADDRESS. 
0, ALL ADDRESSES OK. 



sCALL: MOV ADR1.R1 



TSV3 - GLOBAL AREAS MACR 

XNXM - CHECK FOR NONEXISTENT "MEMORY 



M1113 06-FEB-84 17:14 
MEI- 



GS 



SEQ 071 



2173 








1 


MOV 


ADR2.R2 




2174 








i 


JSR 


PC, 


NXM 




2175 








1 


RETURN 


j TEST "C" ANO PROCEED. 


2176 








1 










2177 


016376 


012737 


0164 30 000004 


XNXM: 


MOV 




42*,ao4 


t SET BUSERR VECTOR. 


2178 


016404 


012737 


000200 000006 




MOV 




*PRI04,S06 




2179 


016412 


005003 






CLR 




R3 


iFLAG, 


2180 


016414 


005711 




1*: 


TST 




CR1) 


iTEST THE AODRESSCES-). 


2181 
















lIF ANY TRAP, CONTINUE AT 2$. 


2182 


016416 


020102 






CMP 




R1.R2 


j OTHERWISE, CONTINUE HERE, 


2183 


016420 


001407 






BEQ 




3$ 


|BR IF FINISHED CNO NEXM'S). 


2184 


016422 


062701 


000002 




ADD 




02.R1 


j SET NEXT ADDRESS. .. 


2185 


016426 


000772 






BR 




1$ 


I...AND CONTINUE. 


2186 


















2187 


016430 


005103 




2$: 


COM 




R3 


jGOT ONE. SET FLAG. .. 


2188 


016432 


012716 


016440 




MOV 




MI.CSP) 




2189 


016436 


000002 






RTI 






I...ANO DISMISS INTERRUPT... 


2190 


016440 






3$: 


CLRVEC 


04 


I...AND GIVE BACK THE VECTOR. 




016440 


012700 


000004 




MOV 




04, RO 






016444 


104436 






TRAP 




CICVEC 




2191 


016446 


005703 






TST 




R3 


jDID WE CATCH ONE ?? 


2192 


016450 


001401 






BEQ 




. *4 


jNO, "C" - 0, SKIP NEXT. 


2193 


016452 


000261 






SEC 






jYES, "C" - 1, CR1) * NEXM ADDR. 


2194 


016454 


000207 






RTS 




PC 




2195 


















2196 


















CU97 










.SBTTL 


TSTLOOP - CHECK 


ITERATION COUNT 


2198 








j ♦ 










2199 








j SUBROUTINE 


TG 


EXECUTE TEST ITERATIONS. 


2200 








5 EXIT 


WITH 


•*C ' 


SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 


2201 








j LOOP 


COUNTER 


IS SET BY "BEGIN 


.TEST" MACRO. 


2202 


















2203 








! CALL: 


LOOPTO 


ARG 




2204 


















2205 


016456 






TSTLOOP 


« ♦ 








2206 


016456 


005737 


002170 




*TST 




NOITS 


i ITERATIONS INHIBITED? 


2207 


016462 


001006 






BNE 




1$ 


t YES. 


2208 


016464 


005737 


002204 




TST 




QVP 


j NO. 


2209 


016470 


100403 






BMI 




1$ 


lLOOPS DISALLOWED IN QUICK PASS. 


2210 


016472 


005337 


002216 




DEC 




LOOPCNT 


1 BUMP LOOP COLNTER, 


2211 


016476 


001002 






BNE 




2% 




2212 


016500 


00024 1 




1$: 


CLC 






j LOOP DISALLOWED, OR DONE. 


2213 


016502 


000401 






BR 




3$ 




2214 


016504 


000261 




?%i 


SEC 






i LOOP ENABLED. 


2215 


016506 


000207 




3$: 


RTS 




PC 




2216 


















2217 










, SBTTL 


TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


2218 








j * 










2219 








j PRINT 


THE 


NUMBER ANO NAME OP 


EACH TEST AS WE GO ALONG. 


2220 








j INCREMENT 


"TESTK" TO INOICATE 


THE NUMBER OF TESTS 


2221 








j IN THE CURRENT RUN SEQUENCE, 




2222 








j CLEAR 


THE 


ERROR COUNTER ANO SIGNATURE EXTENSION FLAGS, 


2223 


















2224 








; INPUT j 










2225 


















?.2?fj 










RO 




POINTER TO TEST 


ID ASCIZ STRING 


2227 



















•16 



TSV5 - GLOBAL AREAS 
TSTSETUP - PRINT TEST 

2228 

2250 
2231 
2252 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
224 3 
2244 
2245 
2246 
224 7 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



MACRO 
NAME AND 



M1113 06-FEB-84 
INIT ERROR COUNT! 



7:14 



SEQ 072 



2256 

2257 
2258 



2259 
2260 



2261 

2262 
2263 
2264 

2265 

2266 
2267 
2268 



016510 
016510 
016512 
016516 
016522 
016526 
016532 
016536 
016540 
016544 
016546 
016550 
016556 
016556 
016560 
016562 
016564 
016566 
016570 
016576 
016576 
016600 
016602 
016604 
016606 
016614 
016614 
016620 
016622 
016622 
016624 

016626 
016626 

016630 
016634 
016636 
016640 
016640 
016642 
016646 
016652 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
100010 
052760 

104455 
000001 
003740 
005736 
0OO407 
052760 

104455 
000002 
004335 
000000 

012737 

013700 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 



OUTPUT? 

R5 AOORESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS? 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



003154 
016756 
005772 
016144 
002202 

003114 



160000 003176 



i - 

TSTSETUP;: 
MOV 



160001 003176 3$ 



177777 003112 
002202 



2% 



4*: 



001000 



016704 
000002 



CLR 

CLR 

CLR 

CLRB 

MOV 

ASL 

TST 

BEQ 

BPL 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DOOU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 



RO.-(SP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NODEV 

4$ 

3$ 

$160000 .ERTABLC 

i.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 

21 

0160O01.ERTABLC 

2.N0INIT 

CIERDF 

2 

NOINIT 



ff-l.OUFLG 

UNIYN 

UNITN.RO 

CJDODU 

OOCLN 
5$ 

RO 

CIRFLA 

OPNT.RO 

1$ 

(SP).RO 

*TNAM.RO 

RO,-(SP) 

OTNAM, -CSP) 

•5,-CSP) 
SP.RO 



SAVE THE TEST IP n ,SAGE 
CLEAR "SOFT INI I *' FLAG 
CLEAR LOCAL ERROfl COUNTER. 
CLEAR ERROR EXTENSION FLAG, 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT Nl^BER, 
...AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) i FLAG ERROR IN THE ERROR TABLE 
j NO DEVICE HERE - - PRINT IT 



RO) ; FLAG ERROR IN THE ERROR TABLE 

j DEVICE NOT IDLE 



I DROP THE UNIT 



5 ABORT THE PASS 



j GET THE OPERATOR FLAGS. 

{ PRINT THE TEST NUMBERS? 

j BR IF NO 

j GET THE ID MESSAGE 

{DISPLAY THE TEST ID 



16 
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2269 
2270 



2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 

2282 
2283 
2284 



016654 
016656 
016662 
016666 
016666 
016672 
016674 
016676 
016702 
016704 



2285 
2286 
2287 
2288 
2289 
2290 
2291 

2; ?? 

2293 
2294 
2295 
2296 
229/ 
2298 
2299 
2300 
2301 
230? 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 



016720 
016720 
016722 
016726 
016730 
016730 
016734 
016740 
016744 
016746 
016750 
016754 

016756 
016760 
016777 



017044 
017050 
017052 
017056 
017060 
017064 
017066 
017072 
017074 
017076 
017100 

017102 
017104 
017110 
017112 
017116 
017122 
017126 



104417 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



005237 
010046 
013700 
0O630O 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 



000006 
002214 

002212 



002206 
123 



1$: 

5$: 

045 TNAMj 

l 



020000 



016756 
016760 
000002 



000006 



101 
122 



040 
122 



016756 
002202 
003176 
007777 



002202 

003176 
170000 
002174 



TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

,EVEN 

.SBTTL 



CIPNTF 

*6,SP 

TSTCNT 

IPRI 

IPRI.RO 

CfSPRI 

(SP)» 

CSRADDR.R5 

PC 

'KSKTKA Test' 



SEQ 073 



I BUMP Tl-.ST COUNTER. 
iPRIORITY THAT OF DEVICE 



$FIX UP THE STACK 

j ADDRESS OF TSV REGISTERS ON UNIBUS 



TSTENO - PRINT ERRORS RECEIVED 



{ AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
j IF NORMAL ERROR REPORTING 13 DISABLED (FLAjIER). 



TSTEND: 



i BR IF "IER" NOT SET 
I PRINT ERROR COUNT. 



1$: 

ERRK: 
ESUMt 
EMAXDU: 



RFLAGS RO 

TRAP CIRrLA 

BIT ROSIER 

BEQ 1* 

PRINTF *€SUM,ERRK 

MOV ERRK.-(SP) 

MOV *€SUM,~CSP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP CiPNTF 

ADD *6,SP 

RTS PC 

} LOCAL ERROR COUNT . 

.ASCI/ /*A #D*A ERRORS/ 

.ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 

.EVEN 



.SBTTL INCERK 



INCREMENT LOCAL ERROR COUNT 



ROUTINES TO INCREMENT LOCAL ERROR C0L*4T AND CHECK FOR LIMIT; 



INCERK: 



U: 



INC 
MOV 
MOV 
ASL 
ADD 
INC 
BIT 
BNE 
DEC 
MOV 
RTS 



CKEMAX: MOV 

MOV 
ASL 
MOV 
BIC 
CMP 
BHIS 



ERRK 

RO.-(SP) 

UNITN.RO 

RO 

♦ERTABL.RO 

(RO) 

*7777,CRO) 

1* 

CRO) 

<SP)>,RO 

PC 

RO.-CSP) 

WITN.RO 

RO 

ERTABL(RO),RO 

01 70000, RO 

RO.GERRMAX 

U 



INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER. 

... AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DIO WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777, 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A UORD OFFSET 

GET ERROR TABLE ENTR> 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF >ES 



J6 
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2315 
2316 

2317 

2318 
2319 
2320 
2321 



2322 



2323 

2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 

2333 
2334 
2355 

2336 
2337 



2338 

2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
234 7 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2 356 
2359 



017130 
017136 
017140 
017140 
017142 
017146 
017150 
017156 
017156 
017160 
017162 
017164 
017166 
017166 
017172 
017174 
017174 
017176 
017200 



017202 
017204 
017214 
017214 
017216 
017222 
017224 
017226 
017234 
017234 
017240 
017242 
017242 
017244 
017246 



017250 
017250 
017254 



017256 
017262 
017264 
017272 



023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
016777 
000000 

013700 
104451 

104444 
012600 
000207 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



004737 
000207 



005737 
001403 
012737 
000207 



016756 002172 



000040 
177777 



003112 



002202 



000040 

177777 
002202 



003112 





CMP 


ERRK.LERRMAX j 




BLO 


2$ 


5 


1$: 


RFLAGS 


RO 


• 




TRAP 


CIRFLA 






BIT 


*IDU,RO 


I 




BNE 


2$ 


\ 




MOV 


O-l.DUFLG 


1 




ERRDF 


4.EMAXDU 






TRAP 


CIERDF 






.WORD 


4 






.WORD 


EMAXDU 






.WORD 









DODU 


UNITN 






MOV 


UNITN.RO 






TRAP 


CIDODU 






DOCLN 








TRAP 


CIDCLN 




2$: 


MOV 


CSP)*,RO 


J 




RT5 


PC 


1 




.SBTTL 


CKDROP - 


CHECK II 


! CHECK 


IF UNIT 


SHOULD BE 


DROPPED 


CKDROP; 


MOV 


RO.-CSP) 






FORCERROR It 


i.NOTSSR 




RFLAGS 


RO 






TRAP 


CIRFLA 






BIT 


dIDU.RO 






BNE 


11 






MOV 


(SP).RO 






MOV 


♦-1.DUFLG 






DODU 


UNITN 






MOV 


UNITN.RO 






TRAP 


C 5 DODU 






DOCLN 




{ 




TRAP 


CIDCLN 




1*: 


MOV 


(SP)»,RO 






RTS 


PC 





SEQ 074 



IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO -- DROP THE UNIT 



RESTORE RO 
RETURN TO CALLER 



{ABORT THE PASS 



015774 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
\ SUBROUTINE - DETERMINE CONFIGURATION OF TSV05 SYSTEM. 
CONFIG! 



JSR PC.SOFINIT 

RTS PC 

.SBTTL K TON ,K TOFF 



J 



003132 
000001 



; SUBROUTINE 
KTON: 



177572 



1*1 



tst 

BEU 

MOV 
RTS 



ENABLE MEM MGT . 

KTFl.G 
II 

oi.sro 

PC 



- ENABLE/DISABLE MEMORY MANAGEMENT 



j GOT KT? 

I NO. 

j ifcS. ENABLE l<m. 



Kb 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 17:14 
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SEQ 075 



2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

237^ 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

241? 

2413 

2414 

2415 

2416 



017274 
017300 
017302 
017304 
017306 
017314 



017316 
017316 
017322 
017326 
017330 



017362 
017366 
017372 
017374 
017400 
017404 
017410 
017412 
017414 
017416 
017420 



005737 
001405 
000240 
000240 
012737 
000207 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



003132 



000000 177572 



j SUBROUTINE - DISABLE MEM MGT. 



KT0FF 5 



1*; 



TST 


KTFLG 




1 GOT KT11? 


BEQ 


15 




j NO. 


NOP 








NOP 








MOV 


OO.SRO 




1 DISABLE KT. 


RTS 


PC 






.SBTTL 


SETMAP 


- SETUP 


PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6 . 



INPUTS: 



RO 

Rl 



OUTPUTS; 



SETMAP j 



003132 



000177 
003132 

172354 
160000 
140000 



10$ 
15$ 

1 ♦ 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENOR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 

.SBTTL 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. 
SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



KTFLG 

10* 

R1.R2 

6 

RO 

Rl 

4177.R1 
Rl .KTFLG 

10$ 

R1.Q0KIPAR6 
*160000,R2 
♦140000, R2 
R2.R0 

15$ 

PC 

rill.MEM - FILL MEMORY WITH BACKGROUND PATTERN 



{SAVE R1-R4 UNTIL NEXT RETURN 

{SYSTEM HAVE ABOVE 28K? 

;BR IF NO 

{SAVE LOU ORDER BITS 

j CONVERT WORD ADDRESS TO 32W BLOCKS 
{MAKE IT DOUBLE PRECISION 

l ALINE FOR LOWER 4K BOUNDARY 
{HIGHER THAN EXISTING MEMORY? 
{BR IF YES 

jSETUP MAPPING REGISTER PAR6 
{SETUP DISPLACEMENT IN PAGE 
{ADD IN PAR6 BIAS 
{RETURN IN RO 
{SET SUCCESS 

'{SET FAILURE 
{RETURN 



FILL MEMORY WITH A BACKGROUND PATTERN 



j INPUTS; 



RO • BACKGROUND PATTERN 
FREE - FIRST LOCATION 
KTFLG - SET TO HIGHEST 



AVAIL ABl F TO DIAGNOSTIC 
MEMORY LOCATION IF ^ 28K 



L6 



TSV3 GLOBAL AREAS MACRO 

FILI.MEM - FILL MEMORY WITH 

2417 

2418 
2419 
2420 
2421 

2422 017422 

2423 017422 

2424 017426 004737 017274 

2425 017432 010003 

2426 017434 013701 003124 

2427 017440 013702 003126 

2428 017444 010321 

2429 017446 005302 

2430 017450 003375 

2431 017452 005737 003132 

2432 017456 001477 

2433 017460 0O4737 017256 

2434 017464 005000 

2435 017466 0U70! 003152 

2436 000006 
2437 

2438 
2439 
2440 

2441 017536 004737 017516 

2442 017542 010320 

2443 017544 02OO27 160000 

2444 017550 103774 

2445 017552 162700 020000 
2*46 017556 062737 000200 

2447 017564 023737 172354 

2448 017572 001427 

2449 017574 005737 003144 

2450 01760O 001407 

2451 017602 013704 177572 

2452 01760<> 042704 177761 

2453 017612 022704 000016 

2454 017616 001415 

2455 017620 005737 003146 

2456 017624 0O1410 

2457 017626 023727 172354 

2458 017634 103001 

2459 017636 0OO403 

2460 017640 012737 000020 

2461 017646 0OO137 017542 

2462 017652 0O4 737 017274 

2463 017656 OQ0207 
2464 

2465 
2466 
2467 
2468 
2409 
24 -C 
24 71 
24 72 
2473 



BACKGROUND PATTi 



1-84 
•RN 



17$ 14 



SF.Q 076 



; OUTPUTS : 
| NONE 



FILLMEMt 



10$ 



30$ 



172354 
003132 



007600 



172516 



35$ 



40$ 
45$ 
50$ 
55$ 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENOR 

JSR 

MOV 

CMP 

BLO 

SUB 

ADD 

CMP 

BEQ 

TST 

BEQ 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

CMP 

BHIS 

BR 

MOV 

JMP 

JSR 

RTS 

.SBTTL 



PC.KTOFF 

R0.R3 

FREE.R1 

FRESIZ.R2 

R3.CR1)* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

PST32W.R1 

6 

Rl 
RO 

PC.SETMAP 

R3.CR0)* 

RO, 0160000 

30$ 

020000.R0 

■>200,S0KIPAR6 

&*KIPAR6 .KTFLG 

50$ 

T23A 

55$ 

SR0.R4 

0177761.R4 

016.R4 

50$ 

T23B 

45$ 

S*KIPAR6, 07600 

40$ 

45$ 

020, SR3 

30$ 

pcktoff 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K . 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS CIN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4!< BLOCK >28K. 
END OF MEMORY? 
BR IF YES 
11/23A? 
NO KEEP GOING 
GET SRO CONTENTS 
CLEAR ALL BUT PAGE NUMBER 
SEE IF PAGE 7 
EXIT IF THERE 
11/23B? 
NO KEEP GOING 
REACHED 18 BITS? 
YES 

NO KEEP GOING 
SET 22 BIT RELOCATION 
KEEP GOING ON ETC. 
{ DISABLE KT, 



CMP MEM 



COMPARE MEMORY TO BACKGROUND PATTERN 



COMPARE MEMORY UITH A BACKGROUND PATTERN 



INPUTS: 



RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLF TO DIAGNOSTIC 

KTFLG • SET TO HIGHEST MEMORY LOCATION IF > 28K, 



TSV3 - GLOBAL AREAS MACRO Mil 13 06 -FEB -84 17:14 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



M6 



SEQ 077 



2474 








; OUTPUTS: 




2475 








i 




24 76 








j CARRY 


- SET IF NO ERROR 


2477 








1 CARRY 


- CLR IF ERROR 


24 78 








» 




24 79 








5 IMPLICIT OUTPUTS: 


2480 








• 




2481 








j ERRHI 


- ERROR HIGH ADOR 


2482 








; ERRLO 


- ERROR LOW ADORE 


2483 








j EXPO 


- EXPECTED DATA 


2484 








( RECV 


- RECEIVED DATA 


2485 








• 




2486 


017660 






CMPMEM: 




2487 


017660 






SAVREG 




2486 


017664 


010003 




MOV 


R0.R3 i 


2489 


017666 


004737 


017274 


JSR 


PC.KTOFF i 


2490 


017672 


013701 


C03124 


MOV 


FREE.R1 i 


2491 


017676 


013702 


003126 


MOV 


FRESIZ.R2 ; 


2492 


017702 


020311 




10$: CMP 


R3.CR1) t 


2493 


017704 


001411 




BEQ 


15$ i 


2494 


017706 


010137 


002240 


MOV 


Rl, ERRLO i 


2495 


017712 


005037 


002236 


CLR 


ERRHI ; 


2496 


017716 


010337 


002232 


MOV 


R3,EXPD ; 


2497 


017722 


011137 


002234 


MOV 


CRD, RECV ; 


2498 


017726 


0004 74 




BR 


50$ i 


2499 


017730 


005721 




15$: TST 


CRD* i 


2500 


017732 


005302 




DEC 


K2 J 


2501 


017734 


003362 




BGT 


10$ ; 


2502 


017736 


005737 


003132 


TST 


KTFLG i 


2503 


017 742 


001472 




BEQ 


55$ ; 


2504 


017744 


0O4737 


017256 


JSR 


PC.KTON i 


2505 


017750 


005000 




CLR 


RO i 


2506 


017752 


013701 


003152 


MOV 


PST32W.R1 j 


2507 




000006 




.REPT 


6 


2508 








ROL 


Rl i 


2509 








ROL 


RO i 


2510 








.ENOR 




2511 


020006 


042701 


000177 


BIC 


#177. Rl j 


2512 


020012 


010046 




MOV 


RO,-(SP) j 


2513 


020014 


010146 




MOV 


Bl.-CSP) ; 


2514 


020016 


004 737 


017316 


JSR 


PC.SETMAP i 


2515 


020022 


010004 




MOV 


S0.R4 i 


2516 


020O24 


012601 




MOV 


(SP)*,R1 j 


2517 


020026 


012600 




MOV 


CSPJ»,PO j 


2518 


020030 


020314 




30*: CMP 


R3.CR4) j 


2519 


020032 


001411 




BEQ 


32$ j 


2520 


020034 


010037 


002236 


MOV 


RO, ERRHI j 


2521 


020040 


010137 


002240 


MOV 


Rl, ERRLO { 


2522 


020044 


010337 


002232 


MOV 


R3,EXPD i 


2523 


020C50 


011437 


002234 


MOV 


CR4),RECV i 


2524 


020054 


000421 




BR 


50$ { 


2525 


020056 


062701 


000002 


32$: ADD 


02, Rl i 


2526 


020062 


005500 




AOC 


RO j 


2527 


020064 


062 704 


000002 


AOO 


02, R4 j 


2528 


020070 


020427 


160000 


CMP 


R4, #160000 s 


2529 


020074 


103755 




BLO 


30$ j 


2530 


020076 


162704 


020000 


sue 


020000. R4 } 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

FREE SPACE LOCATION EQUAL TO EXPD? 

BR IF YES 

SAVE AODRESS IN ERROR 

NO HIGH ADCRESS 

SAVE EXPD FOR ERROR REPORT 

SA"G RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT, 
HIGH OROER ADDRESS START 
GET >28K START ADDRESS C IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF ^LS 

SAVE HIGH ORDER IN ERROR 

SAVE LOW ORDER IN ERROR 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION MOD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 



N6 



MACRO M1U3 06-FEB-l 
- COMPARE MEMORY TO BACKGROUND PATTEI 



TSV3 - GLOBAL AREAS 
CMPMEM 



2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

25 78 

2579 

2580 

2581 

2582 

258 3 

2584 

2585 

258 1 



020102 
020110 
020116 
020120 
020124 
020126 
020130 
020134 
020136 



020140 
020140 
020142 
020144 
020146 
020150 
020152 
020156 
020160 
020162 
020164 
020166 
020170 
020172 



062737 
023737 
101744 
004737 
000241 
000403 
004737 
000261 
000207 



010446 
010346 
010246 
010146 
010546 
016605 
004 736 
012601 
012602 
012603 
012604 
012605 
000207 



000200 
172354 

017274 



017274 



172354 
003132 



000012 



50$ 

55$ 
60$ 



14 17} 14 

tN 

ADD 

CMP 

BLOS 

JSR 

CLC 

BR 

JSR 

SEC 

RTS 



02OO.30KIPAR6 

E0KIPAR6.KTFLG 

30$ 

PC.KTQFF 

60$ 
PC.KTOFF 

PC 



SEQ 078 



{POINT TO NEXT 41< BLOCK >28K 

{END OF MEMORY? 

{BR IF NO 

i TURN OFF MEMORY MAPPING 

j SET FAILURE 

{TURN OFF MEMORY MAPPING 
{SET SUCCESS 



.SBTTL REGSAV - SAVF. R1-R5 ON STACK 



STALK 



{ROUTINE TO 
SAVE Rl THROUGH R5 OS! 

CALLING SEQUENCE j 

JSR R5,Rfc.';SAV 

THIS IS A COOROUTIN£ WHICH TRANSFER CONTROL BACK TO 
{THE CALLING ROUTINE. AT T HE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 

{ - 



REGSAV: 




MOV 


R4.-CSP) 


MOV 


R3, -CSP) 


MOV 


R2,-CSP) 


MOV 


Rl.-(SP) 


MOV 


R5 t -(SP) 


MOV 


10.CSP),R5 


JSR 


PC.6JCSP)* 


MOV 


(SP)».R1 


MOV 


CSP)»,R2 


MOV 


(SP)*,R3 


MOV 


CSP)*,R4 


MOV 


(SP)».R5 


RTS 


PC 


.SBTTL 


GETPAT - GET 



8 BIT PATTERN FROM OPERATOR 

♦ 

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
{INPUTS: 

NONE . 
OUTPUTS: 

RO OCTAL NUMBER FROM THf UPfcRATOR 

CALLING SEQUENCE: 



TSV3 GLOBAL AREAS MACRO M1113 06 FEB-84 W--14 

GETPAT GET fl BIT PATTERN FROM OPERATOR 



B/ 



SEQ 079 



2588 




2*>89 




2590 




25<n 




2592 




2593 020174 




2594 020174 




2595 020200 




020200 


104443 


020202 


000406 


020204 


020230 


020206 


000022 


020210 


020232 


020212 


000377 


020214 


000000 


020216 


000377 


020220 




2596 020220 




020220 


103367 


2597 020222 


013700 020230 


2598 020226 


000207 


2599 




2600 




2601 




2602 




2603 




2604 020230 


OOOCOO 


2605 020232 


105 116 


2606 




260 7 




2608 




2609 




2610 




2611 




2612 




2613 




2614 




2615 




2616 




261? 




2618 




2619 




2620 




2621 




2622 




2623 




2624 020256 




2625 020256 




2626 020262 


010002 


262? 020264 


C102O3 


2628 020266 


005 713 


2629 0202 70 


001412 


2650 0202 72 




0202 72 


012346 


0202 74 


01P746 02044^ 


020300 


012 746 000002 


02030A 


010600 



124 



1 
i 
i 


JSR 


PC. GETPAT 


1 

GETPAT: 


SAVREG 




1$} 


GMANID 


DATASCPA 




TRAP 


CIGMAN 




BR 


10000$ 




.WORD 


PATDAT 




.WORD 


TICOOE 




.WORD 


DATASC 




• WORD 


377 




.WORD 


TILOLIM 




.WORD 


TIHILIM 


100001: 








BNCOMPLETE 1 




BCC 


It 




MOV 


PATDAT, RO 




RTS 


PC 



I SAVE THE GENERAL REGISTERS 



iRETRY IF ERROR 

,DATA PATTERN FROM OPERATOR 
, RETURN TO CALLER 



j LOCAL DATA AREA 

PATDAT: .WORO < 
DATASC; .ASCI* 
.EVEN 

.SBTTL 



j TEMPORARY STORAGE FOR DATA 

•ENTER DATA PATTERN' 

GETSEL - ISSUE MENU ANO GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU ANO GET 
TME OPERATOR'S RESPONSE. 



INPUTS} 

RO 
Rl 

OUTPUTS: 

RO 



ADDRESS OF ASCI/ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER Of THE OPERATOR'S SELECTION 



GETSEL ii 



It 

2$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 



R0.R2 
R2.R3 
(R3) 
3$ 

♦SELASC,(R3)» 
(R3)», (SP) 
♦SELASC, -CSPi 
♦2. CSP) 
SP,RO 



I SAVE GENERAL REGISTER5 

,SAVE TME MENU ADDRESS 

, START OF MENU STRING 

lENO OF ASCII ? 

, BRANCH If ALL l INES DISPLAYED 

I DISPLAY THE MENU 



mh, Gio mmi ^m°Mhhhn°km^t 



17 s 14 



C7 



SEQ 080 



2631 

2632 



2633 

2654 

2635 
2636 

2637 



263ft 
2639 
2640 

2t>41 
2642 
2643 
2644 
2645 
2646 
264 7 

264 3 
2649 
2650 
2651 
2652 

265 3 
2654 
2655 
2656 
265/ 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
266/ 
2668 
2669 



020306 
020310 
020314 
020316 
020316 
020320 
020322 
020324 
020326 
020330 
020332 
020334 
020336 
020336 
020336 
020340 
020344 
020346 
020350 
020350 
020354 
020360 
020362 
020364 
020370 
020372 
020374 
020442 
02044 7 



1044 W 
062706 
000764 

104443 
000406 
0204 76 
000042 
02044 7 
177777 
000000 
177777 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020476 000000 



020500 
020500 
020504 
020504 



000006 



3$ 



10001$: 



TRAP CIPNTF 

ADD *6,SP 

BR 21 

GMANID MENASC , MENKES , D . - 1 , , 

TRAP C$GMAN 

BR 10001$ 

.WORD MENRES 

.WORD TICOOE 

. WORD MENASC 

.WORD -1 

.WORD TILOLIM 

.WORD UHILIM 



I, NO 



020476 



020374 
000001 



000004 



116 
116 
156 



5$: 

045 MENERR: 
045 SELASC: 
164 MENASC : 

MENRES: 



BNCOMPLETE 

BCC 

MOV 

CMP 

BIOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

RTS 

.ASCIZ 

.ASCI* 

.ASCIZ 

.EVEN 



1$ 



iRETRY IF ERROR 



1$ 

MENRES.RO 

R0.R1 

5$ 

♦MENERR 

♦MENERR ,-CSP) 

♦1, (SP) 

SP.RO 

C$PNTF 

#4,SP 

1$ 

PC 

'#N#A ♦♦♦ Menu 

'#N*T' 

'Enter Menu Select 



iGET THE OPERATOR'S REPl r 
iCOHPARE TO MAXIMA ALLOWED 
I BRANCH IF OK 
I DISPLAY ERROR MESSAGE 



\ RETRY 

iRETURN TO CALLER 

flection Too Large 



on 



♦ ♦♦ 



SBTTL 



.WORD 
CHKMAN 





- CHECK 



MANUAL INTERVENTION LEGALJ.TY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 



INPUT t 



NONE, 



OUTPUT: 



CARRY 
1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



SIDE EFFECTS: 



A H5.SSAGE IS DISPLAYED WARNING THAT TFST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED, 



CHKMANt: 



104450 



SAVREG 
MANUAL 
TRAP 



C$MANI 



»SAVE THE REGISTERS 

l5EE IF MANUAL INTERVENTION OK 



1)7 



tHKMAN -CHECK MANUAL 


mm 


2670 


020506 








020506 


103411 




2671 


C20510 








020510 


012746 


020534 




020514 


012746 


000001 




020520 


010600 






020522 


1C4417 






020524 


062706 


000004 


2672 


020530 


000241 




26 73 


020532 


000207 




2674 








2675 


020534 


045 


116 


2676 








267/ 








2676 








2679 








2680 








2681 


020630 








020630 


104431 




2682 


020652 


010037 


003124 


2683 


020636 


062737 


000002 


2684 


020644 


011037 


003126 


2685 


020650 


162737 


000004 


2686 


020656 


013702 


002012 


2687 


020662 


162737 


000007 


2688 


020670 


005302 




2689 


02O672 


001373 




2690 


02O674 


013700 


003124 


2691 


020700 


063700 


003126 


2692 


020704 


162700 


000002 


2693 


020710 


010037 


003130 


2694 


020714 


000240 




2695 


020716 


012701 


177520 


2696 


020722 


010102 




2697 


020724 


062702 


000002 


2698 


020 730 


004737 


016376 


?699 


020734 


103001 




2700 


020736 


000445 




2701 


020740 


013701 


177520 


2702 


020744 


062701 


000001 


2703 


020750 


012702 


177520 


2704 


020754 


0O5212 




2^05 


020756 


013703 


177520 


2706 


020762 


020103 




2707 


020764 


001017 




2708 


020766 


005237 


003144 


2709 


020772 


04273/ 


170000 


2710 


021000 


000240 




2711 


021002 








021002 


012746 


005554 




021006 


012746 


000001 




021012 


010600 






021014 


104417 






021016 


062706 


000004 


2712 


021022 


000413 




2713 


021024 


005237 


003146 


27X4 


021030 


000240 





.BtfHy 



-64 17 j 14 



BCOMPLETE 1* 



1$: 
045 NOMAN; 



BC5 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLC 

RTS 



1$ 

ONOMAN 

ONOMAN, -(SP) 
01, -(SP) 
SP.RO 
C$PNTF 
04, SP 

PC 



SEQ 081 

I BRANCH IF ALLOWED 

jPRINT THE WARNING MESSAGE 



j CLEAR CARRY FOR ERROR 
jRETlflN 



.ASCIZ 
♦ even 
.SBTTL 



'*N*A **<. Manual Intervention not Allowed 
ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
j SUBROUTINE TO S2T-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



Test Aborted *** 



ENVIRN: 



003124 
003126 
003126 10$ 



15$ 



002120 



20$ 



MEMORY 

TRAP 

MOV 

ADO 

MOV 

sue 

MOV 

SUB 

DEC 

BNE 

MOV 

ADO 

SU8 

MOV 

NOP 

MOV 

MOV 

ADO 

JSR 

BCC 

BR 

MOV 

ADD 

MOV 

INC 

MOV 

CMP 

BNE 

INC 

BIC 

NOP 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

INC 

NOP 



RO 

C$MEM 

RO.FREE 

♦2. FREE 

(RO),FRESIZ 

04.FRESIZ 

L$UNIT,R2 

•7.FRESIZ 

R2 

10$ 

FREE,RO 

FRESIZ.RO 

02, RO 

R0.FREEH1 

OBDVPCR.Rl 
R1.R2 
02, R2 

PCXNXM 

15$ 

40$ 

BDVPCR.R1 

01, Rl 

08DVPCR.R2 

CR2) 

BDVPCR.R3 

R1.R3 

20$ 

T23A 

01 70000, L$HIME 



-(SP) 



OM8186 

0M8186 

01 

SP.RO 

C$PNTF 

04.SP 

40$ 

T23B 



(SP) 



GET 1ST FREE ADDRESS. .. 
, . ,ANO WORD COUNT, 

GET NUMBER OF UNITS 

TAKE AWAY 7 WORDS PER UNIT 



GET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRES5 
BACKUP 1 WORD 
STORE LAST FREE ADDRESS 



\t *** 



GET BDV11 PCR ADDRESS 

COPY TO R2 

SET THE RANGE 

SEE IF WE HAVE ONE 

OK TC SET FLAGS 

RETURN WITH FLAGS CLEAR 

SAVE PCR CONTENTS 

ADD ONE TO IT 

GET BDVU PCR ADDRESS 

TRY TO WRITE TO IT 

GET RESULTS 

DID IT CHANGE? 

NO. ^ST BE 11/23B 

SET THE FLAG 

SUPERVISOR COULD BE WRONG 

BR 40$ FOR RELEASE 

TELL THE SYSTEM TYPE 



j RE TURN 

\ SF T THE F ■ l AG 

jBR 40$ FQR RELEASE 



E7 



TSV5 - GLOBAL AREAS 
ENVIRN - SETUP FREE 



MACRO Ml 113 06 -FEB -84 
DIAGNOSTIC SPACE 



17:14 



2715 021032 
021052 
021056 
021042 
021044 
021046 

2716 021052 
2717 

2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2750 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
276? 
2763 
2764 
2765 
2766 



021054 
021054 
021060 
021064 
021072 
021074 
021100 
021106 
021112 
021114 
021122 
021130 
021134 
021136 
021142 
021150 
021152 
021156 
021162 
021164 
021170 

021172 
021176 

021200 

021204 



012746 
012746 
010600 
104417 
062706 
000207 



005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
01003/ 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 

000207 



005645 
000001 



000004 



003132 
003134 
002120 

000004 
021172 

177572 

002120 
000177 
000004 

172340 
077406 

000200 

002000 

177600 



021200 



000004 



PRINTF 


0M8189 


MOV 


0M8189, (SP) 


MOV 


♦1,-CSP) 


MOV 


SP,R0 


TRAP 


CIPNTF 


AOD 


04, SP 


RTS 


PC 


.SBTTL 


KTINIT - SE 



SEQ 082 



I TELL THE SYSTEM TYPE 



40*: 



ROUTINE TO INIT KT-11 



jRETURN 
SETUP KT11 MEMORY MANAGEMENT REGISTERS 



001577 



000004 



003132 
003132 



177740 



KTINIT: 










CLR 


KTFLG | 


INIT >28K MEMORY FLAG 




CLR 


KTENABLE 


INIT TEST >28K FLAG 




CMP 


LIHIME, 01577 


GOT ENOUGH MEMORY C>28K)? 




BLOS 


91 


NO. 




MOV 


&OERRVEC.RO 


SAVE OLD ERR VEC PTR. 




MOV 


02*,B0ERRVEC 


SET ERR VEC PTR, 




TST 


&OSR0 


GOT KT11? 




NOP 




CTRAP IF NO). 




MOV 


LIHIME, KTFLG 


YES. SET KT FLAG. 




BIC 


♦177.KTFLG 






MOV 


RO,SOERRVEC 


RESTORE OLD ERR VEC PTR, 




CLR 


RO 


RO - AR DATA. 




MOV 


OKIPARO.Rl 


Rl - KI REGS PTR. 


It: 


MOV 


077406, 40CR1) 


SET DESCRIPTOR REG. 




MOV 


RO.(Rl)* 


SET KIPAR REG. 




AOD 


0200, RO 


BUMP AR DATA BY "4K". 




CMP 


RO , 020O0 


AT "I/O"? 




BNE 


1$ 


NO. 




MOV 


0177600, -CR1) 


YES, SET KTPAR7 FOR I/O. 




BR 


9i 




2$: 


MOV 


06$, (SP) 


SET UP RETURN 




RTI 




RTI TO NEXT LOCATION 



6$ 
9$ 



MOV RO.SOERRVEC | RESTORE OLD ERR VEC PTR, 

RTS PC 

SUBROUTINE TO SET EXTENDED FEATURES SWITCH 

Requires that SOFINIT and WRTCHR have been done previous to call 



CURRENT UNIT NUMBER 



021206 



INPUTS: 

R5 
OUTPUTS: 

The Extended Features Switch is set. 



INVERT; : 



F7 



TSV5 GLOBAL AREAS MACRO M1113 06-FEB-84 17*14 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 



2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

£819 

2820 

2821 

2822 

2823 



021206 
021212 
021214 
021222 
021230 
021236 
021244 
021250 
021254 



021260 
021262 
021264 
021266 



021270 
021272 
021274 



021276 

021276 
021302 
021306 
021312 
021316 
021322 
021324 
021332 
021334 
021340 
021342 
021346 
021350 
021356 
021360 
021366 
021370 
021374 
021376 
021404 



005737 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



021260 

000000 
000000 
000000 
000000 



000000 
000000 
000000 



005037 
005037 
005037 
005737 
001407 
023727 
103406 
004737 
000427 
005737 
001413 
023727 
101023 
023727 
103403 
004737 
000411 
023727 
103410 



002226 

100206 
021270 
000006 
100010 
021260 
010662 



021260 
021262 
021266 
021270 



1*5 



TST 


EXTFEA 


BNE 


1$ 


MOV 


0100206, CMDPKT 


MOV 


0WSMBK,CMDPKT*2 


MOV 


06,CM0PKT*6 


MOV 


0100010, WSMBK 


MOV 


*CM0PKT,R4 


JSR 


PC.WRTCHR 


RTS 


PC 



CMOPKT 



COMMAND PACKET. 

<.*3>6177774 



SEQ 083 



IS SWITCH SET? 

YES, EXIT STAGE RIGHT' Cor the next one outa town J) 

WRT SUB-SYS MEM CMD 

MSG BUT AODR 

BYTE COUNT 

INVERT THE SWITCH 

SET CMDPKT INTO R4 

DC IT 

RETURN 



j MUST BE ON MOD 4 80UNORY, 

j 1ST WORD IS TS05 COMMAND, 

i 2ND WORD IS THE BUFFER LOW ADDRESS. 

1 3RD WORD IS THE BUFFER HIGH ADDRESS. 

,4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 



WSMBK 






.EVEN 



1 1ST WORD 
; 2ND WORD 
j 3RD WORD 



SEL 
SEL 2 
SEL 4 



J 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 



(INPUTS: 

; OUTPUTS: 

; The NXMFLG is set if we can test. 

i The NXMLO and NXMHI addresses are setup, 

i - 



MEMCK t : 



003136 
003140 
003142 
003146 

002120 

021452 

003144 

002120 

002120 

021452 

002120 



007777 



005777 
003777 



IS: 
2$: 



001577 4$j 



SAVREG 

CLR 

CLR 

CLR 

TST 

BEQ 

CMP 

BLO 

JSR 

BR 

TST 

BEQ 

CMP 

BHI 

CMP 

BLO 

JSR 

BR 

CMP 

BLO 



NXMFLG 
NXMLO 
NXMHI 
T23B 

1$ 

L$HIME, 07777 

21 

PC.NXMTST 

13* 

T23A 

4$ 

LIHIME, 05777 

14$ 

L$HIME, 03777 

4$ 

PC.NXMTST 

13$ 

L$HIME, 01577 

14$ 



SAVE THE REGISTERS 

CLEAR THE FLAG 

THE TEST ADDRESS 
THE TEST ADDRESS 
A 11/23B? 



LO 
HI 



THAN 128K 



CLEAR 
CLEAR 
IS IT 
NO 

GREATER 

NO 
SETUP THE ADDRESS 
SET THE FLAG ANO EXIT 
IS IT A 11/23A? 
NO 

GREATER THAN 96K 
YES,23/V23B WITH 
GREATER THAN 64K 
NO, CHECK 24K 
SETUP THE ADDRESS 
SET THE FLAG ANO EXIT 
GREATER THAN 24K BUT LESS THAN MK? 
NO, TELL THEM AND EXIT WITH FLAG CLEAR 



128K MEMORY 
BUT LESS THAN 



92i<? 



G7 



TSV3 - GLOBAL AREAS MACRO M1113 06-FEB-84 1 7 j 14 
KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



2824 


021406 


004737 


021452 




JSR 


PC, NXMTST 


2825 


021412 


062737 


000077 003142 




ADD 


077, NXMHI 


2826 


021420 


005237 


003136 13$: 


INC 


NXMFLG 


2827 


021424 


000411 






BR 


15$ 


2828 


021426 


000410 


14$ j 


BR 


15$ 


2829 


021430 








PRINTF 


*NOMEM 




021430 


012746 


005460 




MOV 


*NOMEM,~(SP) 




021434 


012746 


000001 




MOV 


♦1,-CSP) 




021440 


010600 






MOV 


SP.RO 




021442 


104417 






TRAP 


C$PNTF 




021444 


062706 


000004 




ADO 


*4.SP 


2830 


021450 


000207 


15$: 


RTS 


PC 


2831 














2832 








♦ 






2833 










SUBROUTINE TO SETUP 


2834 














2835 








OUTPUTS :NXML0 


NXMHI 


2836 














2837 








- 






2838 














2839 


021452 


013701 


002120 NXMTST; 


MOV 


L$HIM€.R1 


2840 


021456 


062701 


000200 




ADD 


*200,R1 


2841 


021462 


042701 


000177 




BIC 


♦177. Rl 


2842 


021466 


010102 






MOV 


R1.R2 


2843 




000006 






.REPT 


6 


2844 










ASL 


Rl 


2845 










>ENOR 




2846 


021504 


010137 


003140 




MOV 


Rl.NXMLO 


284 7 




000012 






.REPT 


10. 


2848 










ASR 


R2 


2849 










.ENOR 




2850 


021534 


042702 


177700 




BIC 


$177700, R2 


2851 


021540 


010237 


003142 




MOV 


R2 f NXMHI 


2852 


021544 


000207 






RTS 


PC 


2853 














2854 














2855 














2856 


021546 








ENOMOD 





SEQ 084 



j SETUP THE ADDRESS 

jFOOL THE 11/02 & 11/03 

j SET THE FLAG 

>EXIT 

;NOP FOR PRINTOUT 

I TELL THEM 6 EXIT ***N0 PRINT*** a* 



{RETURN 



» SETUP WITH NXM ADDRfcSS 



{GET TOP OF MEMORY 

j MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

;PUT IN PLACE FOR XFER 

j SAVE TEST ADDRESS LOW 

;PUT IN PLACE FOR XFER 

j DON' T WANT ILA! 

;SAVE TEST ADDRESS HIGH 

jRETURN 



H7 

TSV4 MISCELLANEOUS SECTIONS MACRO M1113 06-FEB-64 17:14 SEQ 085 

KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 

7 .TITLE TSV4 - MISCELLANEOUS SECTIONS 

8 

9 021546 BGNMOO TSV4 

021546 TSV4:: 

10 



17 



TSV4 - MISCELLANEOUS SECTIONS 
PROTECTION TABLE 



MACRO M1113 06-FEB-84 17:14 



SEQ 086 



17 

18 021546 

021546 

1<> 021546 

20 021556 



177777 177777 177777 



L*PROT:: 



, SBTTL PROTECTION TABLE 

BGNPROT 



.WORD 
ENDPROT 



-I. -1. -I. -1 



iNO DEVICE PROTECTION REQUIRED 



J 7 



TSV4 • MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO M1113 06-FEB-84 17:14 



SEQ 087 



22 








23 








24 








25 








26 








27 








28 








29 








30 








31 








32 








33 








34 








35 


021556 
021556 






36 


021556 


005037 


002226 


37 


021562 


005037 


003136 


38 


021566 


012737 


006360 


39 


021574 


005037 


003154 


40 


021600 


005037 


003134 


41 


021604 


005037 


002302 


42 


021610 








021610 


012700 


000036 




021614 


104447 




43 


021616 








021616 


103023 




44 


021620 


023737 


002202 


45 


021626 


103070 




46 


021630 


005737 


003112 


47 


021634 


100472 




48 


021636 


013701 


002202 


49 


021642 


006301 




50 


021644 


005761 


003176 


51 


021650 


001516 




52 


021652 


032761 


040000 


53 


021660 


001060 




54 


021662 








021662 


1044 32 






021664 


000416 




55 


021666 








021666 


012 700 


000035 




021672 


104447 




56 


021674 








021674 


103052 




57 


021676 








021676 


012 700 


000040 




021702 


10444 7 




58 


021704 








021704 


103404 




59 


021706 








021706 


012700 


000037 




021712 


104447 




60 


021714 








021714 


103031 




61 


021716 






62 


021716 








021716 


1044 33 





.SBTTL INITIALIZE SECTION 



;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
;AT THE BEGINNING OF EACH PASS, 

}IF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-iNIT, 
i IF "CONTINUE", NOTHING IS REQUIRED. 



{INSERT TEMPORARY JUMP TO ODT 



002200 



002012 



003176 



BGNINIT 




L*INIT:: 




40$ j CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


♦EPRT1.EPRTSW 


CLR 


SIFLAG 


CLR 


KTENABLE 


CLR 


RAMSIZ 


READEF 


OEF. CONTINUE 


MOV 


♦ef.continue.ro 


TRAP 


CIREFG 


BNCOMPLETE 1$ 


BCC 


1$ 


CMP 


UNITN,L*UNIT 


BHIS 


4$ 


TST 


UUFLG 


BMI 


NXTU 


MOV 


UNITN.R1 


ASL 


Rl 


TST 


ERTABL(Rl) 


BEQ 


SETU 


BIT 


*eiT14 # ERTABL(Rn 


9NE 


NXTU 


EXIT 


INIT 


TRAP 


C'EXIT 


.WORD 


L 10030 -. 


1$: READEF 


SEF.NEW 


MOV 


SEF.NEW.RO 


TRAP 


C$REFG 


BNCOMPLETE NXTU 


BCC 


NXTU 


READEF 


*EF. START 


MOV 


OFF, START, RO 


TRAP 


C$REFG 


BCOMPLETE 2% 


BCS 


2i 


READEF 


•EF. RESTART 


MOV 


*EF. RESTART, RO 


TRAP 


CIREFG 


BNCOMPLETE 31$ 


BCC 


31$ 


2$; 




BRESET 




TRAP 


C*RESET 



l SET UP PRIMARY MESSAGE FOR REPLACEMENT 

{CLEAR "SOFT INIT" FLAG 

{CLEAR TEST ABOVE 28K FLAG 

{CLEAR RAM SIZE FOR RAHERR ROUTINE 



{UNIT IN RANGE? 
iBR IF NO. 
{DROPPED UNIT? 
{BR IF YES 



{DROPPED? 

{DO NOTHING IF "CONTINUE 



;TAKE NEXT UNIT IF NOT NEW PASS 



{1ST PASS, BUS-INIT, 
{BUS RESET, 



I<7 



TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO M1113 06-FEB-84 17? 14 



63 021720 


005037 


002214 




CLR 


TSTCNT 


64 021724 


005037 


002222 




CLR 


FATFI.G 


65 021730 


005037 


003144 




CLR 


T23A 


66 021734 


005037 


003146 




CLR 


T23B 


67 






■ 


MOV 


0340, -CSP) 


68 






} 


MOV 


*20$,-C5P) 


69 






J 


JMP 


O.ODT 


70 021740 


005037 


003400 




CLR 


SKIPT 


71 021744 






20$: 






72 021744 


012737 


177777 002204 




MOV 


O-l.QVP 


73 021752 


004737 


020630 




JSR 


PC.ENVIRN 


74 021756 


004737 


021054 




JSR 


PC.KTINIT 


75 021762 


012700 


003176 




MOV 


*ERTABL,RO 


76 021766 


005020 




30$: 


CLR 


(RO)* 


77 021770 


020027 


003376 




CMP 


RO.OERTABE 


78 021774 


103774 






BLO 


30$ 


79 021776 


000404 






BR 


4$ 


80 022000 


005037 


002204 


31$: 


CLR 


QVP 


81 022004 

82 

83 022010 


000137 


022054 




JMP 


PASRPT 






4$j 






84 022010 


012737 


177777 002202 


NEWPAS: 


MOV 


#-1, UNITN 


85 022016 


005037 


002220 




CLR 


OEVCNT 


86 022022 






NXTU: 


BREAK 




022022 


104422 






TRAP 


C$BRK 


87 022024 


005237 


002202 




INC 


UNITN 


88 022030 


023737 


002202 002012 




CMP 


UNITN,L$UNIT 


89 022036 


103423 






BLO 


SETU 


90 0220.10 


012737 


177777 003112 




MOV 


•-1.DUFLG 


91 022046 


000401 






BR 


11$ 


92 022050 








OOCLN 




022050 


104444 






TRAP 


C$DCLN 


93 022052 


000240 




11$: 


NOP 




94 022054 






PASRPT; 






95 022054 


023727 


002012 000001 




CMP 


L$UNIT.01 


96 022062 


101752 






BLOS 


NEWPAS 


97 022064 


005737 


002220 




TST 


DEVCNT 


98 022070 


001747 






BEQ 


NEWPAS 


99 022072 








RFLAGS 


RO 


022072 


104421 






TRAP 


C$RFLA 


100 022074 


032700 


000100 




BIT 


*ISR,RO 


101 022100 


001343 






BNE 


NEWPAS 


102 












103 022102 








DORPT 




022102 


104424 






TRAP 


CiORPT 


104 022104 


000741 






BR 


NEWPAS 


105 022106 






10$: 






106 












107 022106 






S£TUi 


GPHARD 


UNITN, RO 


022106 


013700 


002202 




MOV 


UNITN, RO 


022112 


104442 






TRAP 


C$GPHRD 


108 022114 








BNCUMPLETE NXTU 


022114 


103342 






BCC 


NXTU 


109 022116 


005037 


003112 




CLR 


DUFLG 


110 022122 


005237 


002220 




INC 


DEVCNT 


111 022126 


012001 






MOV 


CR0)*,R1 


112 022130 


010137 


002206 




MOV 


Rl«CSRADDR 



SEQ 088 



iNUMBER OF TESTS RUN IN PASS 
j CLEAR FATAL ERROR COUNT 
{CLEAR 11/23A FLAG 
{CLEAR 11/23B FLAG 

j RE TURN TO DEBUGGER 
jiSSENTER THE DEBUGGER 
jCLEAR THE SUBTEST "SKIPPER'* 

I . . .QUICK VERIFY. . . 

j SET ENVIRONMENT. 

» INITIALIZE KT MEMORY MANAGEMENT 

jCLEAR THE ERROR TABLE 



;G0 REPORT THE STATUS 



iINIT UNIT NUMBER. . . 

{CLEAR COUNT OF DEVICES RUNNING 



{...AND SET NEXT UNIT NUMBER. 



{ABORT, NO MORE UNITS. 



tHOW MANY UNITS SELECTED? 
{BR IF ONLY I 
{ARE ANY STILL RUNNING? 
j BR IF NO 



{SHOULD WE PRINT STATISTICS 
{BR IF NO 



{GET UNIT N P-TABLE POINTER. 

{BR IF UNIT NOT AVAILABLE. 

tCLEAR "DROPPED" FLAG. 

{GET 1ST REGISTER ADDRESS. 

{ADDRESS OF REGISTERS QF UNIT UNDER TEST 



TSV4 ~ MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



L7 



MACRO M1113 06-FEB-84 17:14 



SEQ 089 



022152 



113 

114 022134 

115 

116 

117 022136 

118 0221A2 

119 022146 
120 
121 
122 

123 
124 
125 
126 
127 
128 

129 022152 

130 022156 

131 022160 

132 022166 

133 022172 

134 022200 

135 022202 
022202 

136 022204 

137 022210 

138 022212 
022212 
022216 
022222 
022226 
022230 
022232 

139 02?236 

140 022236 

141 022242 

142 022246 

143 022250 

144 022254 

145 022260 

146 022262 
14 7 022266 
148 022274 
149 

150 
151 

152 022274 
022274 
022300 

153 022302 
022302 
022302 



154 
155 
156 



012001 



010137 
012721 
013721 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



022304 



012700 
104441 



104411 
045 



002210 
016216 
002212 



002202 

10OOO0 
005772 
002012 



001000 



002202 
022304 
000002 



000006 

003114 
002206 

000002 
016376 

003114 
177777 



000000 



1$ 



MOV 

;MOV 

j MOV 

MOV 

MOV 

MOV 



TST 
BEQ 



(R0)*,R1 
(R0),R2 
R2.IPRT 
RL.IVEC 

0INTR.CR1)* 

IPRI.CR1)* 



QVP 
5$ 



{GET VECTOR ADDRESS. 

(GET INTERRUPT PRIORITY 

{SET INTERRUPT PRIORITY. 

j SET INTERRUPT VECTOR POINTER 

;. . .VECTOR... 

I... AND PRIORITY. 



{1ST 
;N0, 



PASS 
SKIP 



?? 

THE PASS 



1 STUFF 



1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



003176 
000001 



10$: 



003112 



2$: 



MOV UNITN.R1 

ASL Rl 

BIS *8IT15,ERTABL(R1) 

CLR EXTA 

CMP L$UNIT,*1 

BLOS 10$ 

RFLAGS RO 

TRAP CIRFLA 

BIT *PNT,RO 

BEQ 10$ 

PRINTF *PUNIT,UNITN 

MOV UNITN.-CSP) 

MOV OPUNIT.-CSP) 

MOV #2,-(SP) 

MOV SP.RO 

TRAP CIPNTF 

ADD *6 , SP 

CLR NODEV 

MOV CSRADDR.R1 

MOV R1.R2 

ADD 4TSSR.R2 

JSR PC.XNXM 

BCC 2 1 

MOV Rl.NODEV 

MOV O-l.DLFLG 



j SAY DEVICE RUNNING 

{CLEAR ERROR EXTENSION FLAG. 

jARE WE TESTING MULTIPLE UNITS? 

jBR IF NO. 

{YES -- GET OPERATOR FLAGS. 

{SHOULD WE PRINT UNIT *? 
jBR IF NOT. 
{PRINT THE UNIT 



ADDRESS OF FIRST REGISTER 
START OF REGISTERS 
ADDRESS OF TSSR REGISTER 
TEST BOTH CONTROLLER REGISTERS 
. . .AND BR IF ALL OK. 
FLAG DEVICE AS NON-EXISTENT 
{DROP THIS UNIT. 



{FINALLY. SET CPU PRIORITY AND WE'RE DONE. 



5$: 



L.10030: 



SF.TPRI 4PRI00 
MOV OPRIOO.RO 
TRAP C*SPRI 
ENOINIT 



{ENABLE INTERRUPTS. 



TRAP 



C$INIT 



116 



045 PUNlTj .ASCIZ /*NtiN*A** + *+ TESTING UNIT *D2*M ** + **/ 
.EVEN 



M7 



TSV4 - MISCELLANEOUS SECTIONS 
ADD AND DROP UNITS SECTIONS 



MACRO M1113 06-FEB-84 17j14 



SEQ 090 



158 








159 








160 








161 








162 








163 








164 








165 022352 








022352 








166 022352 


010001 






167 022354 


006301 






168 022356 


052761 


100000 


003176 


169 022364 


042761 


040000 


003176 


170 022372 








022372 


010O46 






022374 


012746 


022420 




022400 


012746 


000002 




022404 


010600 






022406 


101417 






022410 


0*2706 


000006 




171 022414 








022414 


000167 






022416 


00002f 






172 022420 


045 


116 


045 


173 








174 








175 022446 








022446 








022446 


104452 






176 








17 7 








178 








179 








180 








181 








182 








183 








184 








i85 








186 








187 022450 








02245C 








188 022450 


012 737 


177777 


003112 


189 022456 


010O01 






190 022460 


006301 






191 022462 


052761 


140000 


003176 


192 0224 70 


000240 


000240 


00C240 


193 0224 76 








0224 76 


010046 






022500 


012746 


022524 




022504 


012746 


000002 




G22510 


010600 






022^12 


104417 






022514 


062706 


000006 




194 022520 








022520 


000167 






022522 


000030 







.SBtTL ADD AND DROP UNITS SEC1I0NS 

i ♦ * 

i THE ADD -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

I TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

; OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



L$AU: 



BGNAU 





MOV 


R0.R1 j 




ASL 


Rl * 




BIS 


$100000, ERTABL(Rl) j 




BIC 


O40000.ERTABLCR1) I 




PPINTF 


01$ # RO 




MOV 


RO.-(SP) 




MOV 


01J.-C5P) 




MOV 


02, -(SP) 




MOV 


SP.RO 




TRAP 


C*PNTF 




ADD 


06, SP 




EXIT 


AU 




.WORD 


J$JMP 




.WORD 


L10031-2-. 


1$: 


.ASCIZ 
.EVEN 


/rfNKA UNIT #D*A ADDED/ 




ENDAU 


5 UNUSED. 


L 10031: 








TRAP 


C*AU 



GET UNIT TO BE ADDED (RO) 
MAKE IT A WORD INDEX 
SET THE "ACTIVE" BIT 
CLEAR THE "DROPPtiD" BIT 



j *♦ 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPV5R DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE -SELECTED ON OPERATOR "STA" OR "ADD" 
COiiMANO, OTHERWISE REMAIN INACTIVE. ME "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE i'- TABLES OF THOSE 
WH.TCH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



BGNDU 



L$DU;: 



MOV 


O-l.DUFLG 


MOV 


R0.R1 


ASL 


Rl 


BIS 


0140000, ERTABLCR1) 


240,240 


,240 


PRINTF 


01$, RO 


MOV 


RO.-CSP) 


MOV 


01$, (SP) 


MOV 


02, -CSP) 


MCV 


SP.RO 


TRAP 


C$PNTF 


ADD 


06.SP 


EXIT 


DU 


.WORD 


J$JMP 


, WORD 


L10032-2-. 



; SAY DROPPED 
; ????????? 



N7 
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ADD AND DROP UNITS SECTIONS 



SEQ 091 



195 
196 

197 



198 

199 
200 



202 
203 
204 
2013 
206 



207 
208 
209 
210 
211 



022524 

022554 
022554 
022554 



022556 
022556 
022556 
022562 
022566 
022572 
022574 
022574 
022600 
022602 
022606 
022610 
022614 
022616 
022622 
022624 
022626 
022630 
022634 
022634 
022634 
022634 



045 



104453 



013705 
012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



116 



045 1$: 



002206 
000550 
016250 



000372 
002116 
377772 
177756 

017202 



L10032: 



.ASCIZ /*N*A UNIT *D*A DROPPED/ 

.EVEN 
ENDDU 



TRAP 



C$DU 



AUTO-DROP CODE SECTION. 



BGNAUTO 
L$AUTO; ; 

MOV 

MOV 
10$; JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 
20$: 

ENDAUTO 
L 10033; 

TRAP 



CSRADDR.R5 

4360, ,R3 

PC.WAITF 

20$ 

250. 

4250., (PC)* 



LIDLY.CPO* 



-6(PC) 

. -4 

-22CPC) 

.-20 

R3 

10$ 

PC.CKDROP 



C$AUTO 



{POINT TO DEVICE REGISTER 

j ENOUGH TIME TOR 2400' REEL TO REWIND 

{WAIT FOR SSR TO SET 

{LEAVE WHEN SSR IS SET 

;WAIT FOR .25 SECONDS 



BUMP COUNTER DOWN 

KEEP GOING 

TRY AND DROP UNIT 



; UNUSED. 



BB 
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SEQ 09? 



213 
214 
215 
216 
21/ 
218 
219 
220 

221 

223 
224 
225 
226 
22 7 
228 
229 



230 
231 
232 
233 
234 

235 



236 
237 
238 
239 
240 
241 
24? 
24 3 
244 
245 
246 
24 7 



248 

249 
250 
251 



022636 
022636 
02263C 
022642 
022646 



022650 
022656 
022662 
022662 
022662 
022662 



022664 
022664 
022664 
022664 
022670 
022674 
0226 76 
022700 
022 704 
022 706 
022710 
022712 
022 716 
022 720 
022722 
022/24 
022726 
022752 
022734 
022740 
022740 
022742 
022744 
022750 
022 754 
022 756 
022 760 
022 764 
022766 
022772 
022774 
022 7 74 
022/76 



013705 002206 
005737 003112 
100405 



012 765 000000 000002 
004737 016250 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
02022 7 
001012 

010346 
012746 



023126 
000001 



000004 
003176 

040000 
170000 



023163 
0OOOO3 



000010 
160000 

023235 



.SBTTl CLEAN-UP ANO REPORT COOING SECTIONS 



I THE CLEANUP COOING SECTION CONTAINS THE COOING THAT 
j EXECUTED AT THE ENO OF EACH PASS COR SUB-PASS), 
I USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
1 • 



LICLEANt 



BGNCLN 

MOV 
TST 
BMI 



MOV 
JSR 

F.NDCLN 
TRAP 



CSRADDR.R5 

DUFLG 

1$ 



♦0.TSSRCR5) 
PC.WAITF 



, POINT TO DEVICE REGISTER 
("DROPPED*' FLAG IS SET ON... 
I... ANO GROSS CONTROLLER FAULT... 
I... DON'T TRY TO XCT CLEANUP CODE. 

I DO SOFT INIT 



III 
21: 

L 10034: 

i THE REPORT COOING SECTION CONTAINS THE 

j "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 

I 



CICLEAN 



LlRPTj 



BGNRPT 



\i 



21 



PRINTS 


♦OEVSUM 




MOV 


tOt V SUM, -(SP) 




MOV 


#1, (SP) 




MOV 


SP.RO 




TRAP 


CIPNTS 




ADD 


♦4.SP 




MOV 


R2, (SP) 




MOV 


R3, (SP) 




MOV 


R4, (SP) 




MOV 


♦ERTABL.R4 


I GET START OF ERROR TA 


CLR 


R3 


i clear unit number 


MOV 


(R4),R2 


I GET ERROR TABLE ENTRY 


BEQ 


4$ 


* ZERO IF 1*11 T NOT RUN 


BPL 


41 




DIT 


•BIT14.PP 


I UAs UNIT DROPPED? 


BNE 


21 


i B& I* YFS 


BIC 


#tC7777,R2 


j GET 'iRROR COUNT F IEt.O 


PRINTS 


•OEVONL.R5.R2 


l PRINT 


MOV 


R2, (SP) 




MOV 


R~ (SP) 




MOV 


*< ; VONL, -(SP) 




MOV 


*•. (SP) 




MOV 


,!■■ , no 




TRAP 


ClPNTS 




ADD 


♦.C.SP 




BR 


u 




CMP 


R2,t 160000 


i was UNIT NON-EXISTENT 


BNE 


3* 


I BR I* NO 


PRINTS 


♦OEVNXR.R* 




"10 V 


R3. (SP) 




MOV 


*Dt:VNXR t -($P> 





TEST IT 



C8 
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SEQ 093 



023002 
023006 
023010 
023012 
^ 023016 

253 023020 

254 023024 

255 023026 
023026 
023030 
023034 
023040 
023042 
023044 

256 023050 

257 023052 
256 023056 

023056 
023060 
023062 
023066 
023072 
023074 
023076 

259 023102 

260 023106 

261 023110 

262 023U4 

263 023116 

264 023120 

265 023122 

266 023124 
023124 
023124 

26 7 

268 023126 

269 023163 

270 023233 
2/1 023315 
272 023376 
273 

274 

2?5 025446 

276 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
02042 7 
103701 
012604 
012603 
012602 



104425 

045 
045 
045 
045 
045 



000002 

000006 
160001 



023315 
000002 



000006 

170000 



023376 
000003 



000010 
000002 

003376 



116 
101 
101 
101 
101 



3$: 



30$: 



4*i 



L 10035; 



045 DEVSUH 

040 DEVONL 

040 DEVNXR 

040 DCVNPD 

040 OEVDRO 



MOV 
MOV 
TRAP 
ADO 

br 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

ADD 

INC 

CM° 

BLO 

MOV 

MOV 

MOV 

ENDRFT 

TRAP 

.ASCI* 

.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.EVEN 

ENDMQO 



02,-CSP) 

SP.RO 
CIPNTS 
♦6.SP 
41 

R2, 0160001 

30$ 

♦0EVNRD,R3 

R3,-(SP) 

♦OEVNRD,-(SP} 

♦2,-CSP) 

SP,RO 

CIPNTS 

06, SP 

4$ 

*tC7777,R2 

♦OEVDR0,R3,R2 

R2,-(SP) 

R3.-CSP) 

♦OEVDRO, -CSP) 

♦3,*(SP) 

SP.RO 

CIPNTS 

♦10, SP 

♦2,R4 

R3 

R4,*tRTABE 

It 

(SP)»,R4 

(SP2*,R3 

C5P)*.R2 



WAS UNIT NOT 
BR IF NO, 



READY AT STARTUP? 



I 



UNUSED. 



CIRPT 



/%iN*ADEVlCE STATUS ?UMMARY } *N/ 

/*A UNIT *03*A ONLINE, ERRORS • #0*N/ 

/*A L*IIT *03*A DROPPED, NON-EXISTENT REGISTERS/ 

/*A UNIT *03*A DROPPEO, NOT READY AT STARTUP*^ 

/*A UNIT *D3*A DROPPED. ERRORS * ¥D*N/ 



D8 

1 .TITLE TSV5 - HARDWARE TESTS 

<? 

10 025446 8GNM0D TSV5 

033446 TSVSit 

16 
^4 



E.8 



TSV5 HARDWARE TESTS MACRO M1113 06-FEB-84 17; 14 
TEST i: INITIALIZE AFTER WRITE CHARACTERISTICS 



SEQ 095 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 



67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



17 
78 



.SBTTL TEST 1? INITIALIZE AFTER WRITE CHARACTERISTICS 



023446 
023446 
023446 
023452 
023456 
023464 
023464 

023470 
023474 
023500 
023506 
023506 
023512 
023514 
023516 
023516 
023520 
023522 
023524 



023526 
023532 
023536 
023542 
023556 
023560 
023562 
023562 
023562 
023564 
023566 
023570 
023572 
023576 



012703 
012704 
012764 

004737 
103405 
010001 

104455 
000144 
003652 
012034 



005037 
010465 
004737 

103407 
010001 



104455 
000145 
024267 
012046 
005237 



TEST DESCRIPTION? 



Thie test verifies that a Hardware Initialize command 
invoked after a Write Characteristic* command sets up 
the Command, Message and Characteristic image blocks 
in the controller ram correctly, 



TEST STEPS j 



REPEAT FOR 
BEGIN 



LOOPCNT 



012700 024102 

004737 016510 

012737 000012 002216 

004737 024356 



T13L00P: 



002764 
024040 
0000 10 000006 

015774 



5$; 



END 



BGNTST 

MOV 
JSR 
MOV 

JSR 

MOV 
MOV 
MOV 

JSR 
BCS 
MOV 
ERRDF 



Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR register is NOT-0 then Print Error 

Write to TSSR register to soft initialize the controller 

If controller RAM 310-377 NOT-0 then Print Error 



*TST13tD,R0 
PC.TSTSETUP 

*10.,L00PCNT 
PC.T13REST 

*TSTBLK*10> ,R3 
*T13PACXET,R4 
*8. .PKGCNTCR4) 

PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



002222 
000000 
016336 



iOo 

10* 



12$ 



WRITE CHARACTERISTICS command. 
CLR FATFLG 
MOV R4 # TS0B(R5) 
JSR PC.CHKTSSR 
FORCERROR 12$ 
BCS 15$ 
MOV R0.R1 
NEXT.ERRNO 
ERROF ERRN0.U3SSR.PKTSSR 



Tl: t 
i ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
, PERFORM 10 ITERATIONS 

I SET PACKET TO START-UP VALUES 



I START Of 
I GET THE 
»START WITH 



TEST 



DATA 
OF 
MINIMUM 



ADORES -j 



COMMAND PACKET 
ALLOWABLE VALUE 



;WRITE TO TSSR TO SOFT INITIALIZE 

:BR IF SOFT 1NIT OKAY 

»SAVE CONTENTS OF TSSR 

iDEVICE FATAL DURING INIT 

TRAP C$ERDF 
. WORD 100 
.WORD SFIERR 
.WORD SFIMSG 



j CLEAR FATAL ERROR FLAG 

iSET THE PACKET ADDRESS TO EXECUTE 

jWAIT Fop SSR TO SET 

iMOFOPCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS Of TSSR 



002222 



INC FATFLG 
15$: CKLOOP 



iDEVICE FATAL SSR 



l SET FATAL ERROR FLAG 

I LOOP ON ERROR, IF FLAG SET 



FAILED TO SET 




TRAP 


CSERDF 


.WORD 


101 


.WORD 


T13SSR 


.WORD 


PKTSSP 



F8 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17} 14 
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79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 



9? 

93 
94 
95 
96 
97 
98 
99 
100 
101 



.102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 



116 

117 

X18 



023576 
023600 
023604 
023610 
023614 
023616 



023622 
023622 
023636 
023640 
023642 
023642 
023642 
023644 
023646 
023650 
023652 
023652 



023654 
023654 
023660 
023674 
023676 
023700 
023700 
023700 
023702 
023704 
023706 



023710 
023714 
023716 
023722 
023726 
023732 
023736 
023742 
023752 
0237S4 
023756 
023756 
023756 
023760 
023762 
023764 
023766 
023772 
023772 
023774 
0237 74 
023776 



104406 
016501 
012702 
032701 
001402 
052702 



020201 
001404 



104456 
000146 
024214 
012046 

104406 



012704 
005002 
105065 
004737 
010465 
004737 
116501 

120102 
001406 



104455 
000150 
024155 
015530 
005237 

104406 

104410 
000426 



000002 
000200 
000100 

000100 



004737 015774 

103405 
010001 



104455 
000147 
003652 
012034 



000310 

000000 
016336 
000000 
016336 
000000 



MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


BIT 


^OFL.Rl 


BEQ 


25$ 


BIS 


O0FL.R2 



SEQ 096 



TRAP 
>GET THE CONTENTS OF TSSR 
i EXPECTED CONTENTS Of TSSR 
lIS OFF-LINE BIT SET ? 
i BRANCH IF NOT OFF-LINE 
,SET OFF-LINE IN EXPECTED DATA 



C*CLPl 



j If the NBA bit in the TSSR register is NOT-0 then Print Error, 
25*: 

FORCERROR 27$ 

CMP R2.R1 

BEQ 30* 

NEXT.ERRNO 

ERRHRD ERRNO , T13NBA , PKTSSR 



tQSO 
lOOES EXPECTED MATCH RECEIVED ? 
I OKAY IF MATCH 



27* 



30* 



CKLOOP 



tNBA NOT ZERO 



j LOOP ON ERROR ? 



TRAP 


C*ERHRD 


.WORD 


10? 


.WORD 


T1JNBA 


.WORD 


PKTSSR 



TRAP 



C*CLP1 



{Write to TSSR register to soft initialize the controller 
40*: 

JSR PC.SOFINIT 

FORCERROR 42* 

BCS 50* 

MOV R0.R1 

NEXT.ERRNO 
42*: ERRDF ERRNO, SFIERR, SFIMSG 



{WRITE TO TSSR TO SOFT INITIALIZE 

jSSO 
>BR IF SOFT INIT OKAY 
; SAVE CONTENTS OF TSSR 



{DEVICE FATAL DURING INIT 




TRAP 


C*ERDF 


.WORD 


103 


.WORD 


SFIERR 


.WORD 


SFIMSG 



{If controller RAM 310-377 NOT-0 then Print Error 



50* 



60* 



62* 



MOV 


*310,R4 


CLR 


R2 


CLRB 


TSDB(RS) 


JSR 


PC.CHK.SSR 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBA(R5).R1 


FORCERROR 62* ,NOTSSR 


CMPB 


R1.R2 


BEQ 


70* 


NEXT.I 


ERRNO 


ERRDF 


ERRNO, T13MEM.RAMEXP 



, START WITH LOC 310 

» MEMORY EXPECTED SHOULD BE 000000 

j SET MAINTENANCE MODE 

j WAIT FO^ SSR READY 

j SELECT RAM ADDRESS 

(WAIT FOR SSR READY 

{READ LOC CONTENTS 

isao 

iCHCCK MEMORY FOR 000000 
, BRANCH IF DATA OKAY 



002222 



70* : 



FATFLG 
ESCAPE T5T 



INC 
CKLOOP 



{MEMORY NOT ZERO AFTER INIT. 

TRAP 
.WORD 
.WORD 
.WORD 

{SET THE FATAL ERROR FLAG 



{EXIT ON FATAL ERROR 



TRAP 

TRAP 
iWURP 



CIERDF 

104 

T13MEM 

RAMEXP 



C*CLP1 

CJESCAPE 
LL0Q36-. 
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G8 



SEQ 097 



119 








120 024000 


005204 






121 024002 


020427 


000400 




122 024006 


001347 






123 








124 








125 024010 


005737 


002222 




126 024014 


001402 






127 024016 


004737 


017202 




128 024022 


004737 


016456 




129 024026 


103002 






130 024030 


000137 


023464 




131 024034 








132 024034 








024034 


104432 






024036 


000366 






133 








134 








135 








136 








137 








138 








142 024040 








143 024040 


100004 






144 024042 


024050 






145 024044 


000000 






146 024046 


000010 






147 








148 024050 








149 024050 


024062 






150 024052 


000000 






151 024054 


000016 






152 024056 


000000 


000000 




153 








154 024062 








155 








156 








157 








158 024102 


111 


156 


151 


159 024155 


111 


156 


143 


160 








161 024214 


127 


122 


111 


162 024267 


103 


157 


156 


163 








164 








165 








166 








167 








168 








169 








170 








171 








172 








173 024356 








174 024 356 








175 024362 


012701 


024040 




176 024 366 


0127^1 


100004 





32$ t 


INC 


R4 




CMP 


R4.04OO 




BNE 


60$ 




TST 


FATFLG 




BEQ 


160$ 




JSR 


PC.CKDROP 


160$: 


JSR 


PC.TSTLOOP 




BCC 


165$ 




JMP 


T13L00P 


165$: 







EXIT 



TST 



J ♦ 

{LOCAL STORAGE FOR THIS TEST 



T13PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 



T13DATA: 



.WORD 
.WORD 
.WORD 
.WORD 



100004 

T130ATA 



8. 



T13BFR 


14. 
0,0 



T13BFR: .BLKW 8. 

{LOCAL TEXT MESSAGES FOR TEST 



l LOOK AT NEXT RAM LOC. 

1 AT TOP OF RAM ADDRESS SPACE 

j BRANCH TILL ALL MEMORY TESTED 



{ANY FATAL ERRORS ? 

f BRANCH IF NOT 

i TRY TO DROP THE UNIT 

{DONE ALL ITERATIONS? 

i BR IF YES 

{LOOP UNTIL ITERATION COUNT DONE 



TRAP C$EXIT 
.WORD L 10036 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND. WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{SMARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 



.ASCIZ 'Initialization After WRITE CHARACTERISTICS' 
'Incorrect RAM Data After Init' 



TST13ID: 
T13MEM: .ASCIZ 
.EVEN 
111 T13NBA: .ASCIZ 'WRITE CHARACTERISTICS Command Not Accepted* 

T13SSR: .ASCIZ 'Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 



1R0UTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



.EVEN 
T13REST; 



SAVREG 

MOV 
MOV 



0T13PACKET.R1 
nO0GQ4»(Rl)* 



{SAVE THE REGISTERS 

{START OF THE PACKET 

iWRITE CHARACTERISTICS WITH ACK 



H8 
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SEQ 098 



177 
178 
179 
180 
181 
182 
183 
184 
185 
186 



187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 

203 
204 
205 
206 
207 



208 
209 
210 



211 
212 

213 
214 
218 
219 



220 
221 
222 
223 
227 
228 



024372 
024376 
024400 
024404 
024410 
024412 
024416 
024420 
024422 
024424 
024424 
024424 



024426 
024426 
024426 
024432 
024436 
024444 
024444 
024444 
024444 
024446 
024452 
024456 
024456 
024462 
024464 
024464 
024464 
024466 
0244 72 
0244 74 
024476 
0244 76 
024500 
024502 
024504 
024506 
024506 
024512 
024516 
024520 
024522 
024522 
024524 
024526 



012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



012700 
004737 
012737 



104402 
004737 
004737 

012700 
104441 



104404 
004737 
103405 
010001 

104455 
000311 
003652 
012034 

012704 
004737 
103405 
010001 

104456 
000312 
005056 



024050 

000010 
024062 

000016 



MOV 
CLR 
MOV 
MOV 
CLR 
MOV 
CLR 
CLR 
RTS 
ENDTST 



0T13DATA.CR1)* j ADDRESS OF CHAR DATA BLOCK 



CRD* 
#8., CRD* 

0Tl3BFR # (Rl)f 

(Rl)* 

ffl4.,(Rl)» 

CRD* 

CRD 
PC 



, EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

j ADDRESS OF MESSAGE BUFFER 

, LENGTH OF MESSAGE BUFFER 



j RETURN 



L10036: 



TRAP 



CSETST 



.SBTTL TEST 2; BASIC WRITE SUBSYSTEM MEMORY COMMAND 



THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
BSELO SELECT COOE Of (NO-OP) EXECUTES CORRECTLY, IT ALSO 
{VERIFIES THAI A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
{MODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
{COMMAND DECODING AND HANDLING SEQUENCES. 



I - 



026241 
016510 
000024 002216 



026306 
026344 



T14L00P: 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



*TSU4ID.R0 
PC.TSTSETUP 
02O..LOOPCNT 



000000 



015774 



JSR PC.T14REST 
JSR PC.T14RST 
SETPRI 0PRIOO 



5$; 



T2:: 
lASCH MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
jPERFORM 20 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 

T2.li 

TRAP C^BSUB 
j SET PACKET TO INITIAL VALUES 
j SET PACKET TO INITIAL VALUES 
jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP C*SPRI 



025600 
010662 



10$: 



BGNSEG 




{>>>>>>>>>•»>> BEGIN SEGMENT >>>>>>>>>n>> 






TRAP CJBSEG 


jsn 


PC.SOFINIT 


}D0 SOFT INIT OF CONTROLLER 


BCS 


10$ 


;BR IF SOFT INIT - OK 


MOV 


R0.R1 


j SAVE CONTENTS OF TSSR 


ERRDF 


ERRNO.SFIERR.SFIMSG 


DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 201 
.WORD SFIERR 
.WORD SFIMSG 


MOV 


OT14PK2.R4 


i SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


» ISSUE WRITE CHARAC {ERISTICS 


BCS 


11$ 


j BR, IP COMMANO ISSUED OK 


MOV 


ro.r; 


i SAVE CONTENTS OF TSSR 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 


{WRITE CHARACTERISTIC FAILED 



TRAP 

.WORD 
.WORD 



CSFRHPD 
WRTMSG 



18 
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11*} 





024530 


012034 




229 


024532 






230 


024532 


005037 


002222 


231 


024536 


005037 


002224 


232 


024542 


012704 


025160 


233 


024546 


010465 


000000 


234 


024552 


004737 


016336 


235 


024556 


103407 




236 


024560 


010001 




240 


024562 








024562 


104455 






024564 


000313 






024566 


025773 






024570 


012046 




241 


024572 


005237 


002222 


242 


024576 








024576 


104406 




243 


024600 








024600 


104410 






024602 


000074 




244 


024604 


005 737 


002224 


245 


024610 


001004 




249 


024612 








024612 


104456 






024614 


0OO314 






024616 


026063 






0246 >0 


012046 




250 


024622 


016501 


000002 


251 


024626 


012702 


v^0C200 


252 


024632 


032701 


000100 


253 


024o36 


001402 




254 


024640 


052702 


000100 


255 


024644 


020201 




256 


024646 


001404 




260 


024650 








024650 


104456 






024652 


000315 






024654 


025622 






024656 


012046 




261 


024660 






262 


024660 


004737 


011114 


263 


024664 


103405 




267 


024666 








024666 


104456 






024670 


000316 






024672 


004745 






024674 


015510 




268 


024676 
024676 








024676 


104405 




269 








270 








271 


024 700 
024 700 








024 700 


104403 




2.12 








273 


024/02 


005737 


002222 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


♦T14PACKET.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


RO.Rl 


ERRDF 


ERRN0.T14SSR.PKTSSR 



15$: 



INC 
CKLOOP 



22$: 



25$: 



FATFLG 



ESCAPE SEG 



TST INTRECV 

BNE 22$ 

ERRHRD ERRN0.T14NINT, PKTSSR 



MOV TSSRCR5),R1 

MOV *SSR,R2 

BIT #0FL.R1 

BEQ 251 

BIS O0FL.R2 

CMP R2.R1 

BEQ 301 

ERRHRD ERRNO , T 14N8 A , PK T SSR 



30$: 






35$: 


JSR 


PC.CKRAM 




BCS 


59$ 




ERRHRD 


ERRNO, PKTRAM.RAMERR 



59$: 



ENDSEG 



ENDSUB 



SEQ 099 



.WORD SFIMSG 



{CLEAR FATAL ERROR FLAG 
I CLEAR INTERRUPT RECEIVED FLAG 
j SET UP NEW WRT. SUBSYS MEM. COMMAND 
{SET THE PACKET ADDRESS 
I WAIT FOR SSR TO SET 
jDR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL SSR FAILED TO SET 

TRAP 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
. WORD 



SET 
TRAP 
{BY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 
OCCUR ? 



;DID AN 
{BRANCH 



INTERRUPT 
IF YES 



TRAP 
.WORD 
.WORD 
.WORD 
{GET THE CONTENTS OF TSSR 
{EXPECTED CONTENTS OF TSSR 
{IS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF-LINE IN EXPECTED DATA 



CiERDF 
203 

T14SSR 
PKTSSR 



C$CL p l 

C$ESCAPE 
10000$-. 



C$ERHRD 
204 

T14NINT 
PKTSSR 



{DOES EXPECTED 
{OKAY IF MATCH 
{N8A NOT ZERO 



MATCH RECEIVED ? 



TRAP 
.WORD 
.WORD 
.WORD 



•.CHECK RAM TO MEMORY 
jRAM OK GO ON 
{THEY DON' T MATCH 



TRAP 
.WORD 
.WORD 
. WORD 



C$ERHRD 
205 

T14N9A 
PKTSSR 



CtERHRD 

206 

PKTRAM 

RAMERR 



l<< <<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 



|\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10040: 

TRAP CSESU6 



TST 



FATFLG 



lANi FATAL ERRORS ? 



J8 
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60$: 



274 


024 706 


001402 




275 


024710 


004 737 


017202 


2 76 


024714 






27 7 








278 








279 








280 








281 








282 








283 








284 








285 








286 


024714 
024 714 








024714 


104402 




287 








288 


024716 








024716 


012700 


OOOOOO 




024 722 


104441 




289 


024724 


012704 


025600 


290 


024730 


004737 


026306 


291 


024734 


004737 


026344 


292 


024740 








024 740 


104404 




293 








294 


024742 


004737 


015774 


295 


024 746 


103405 




299 


024 750 


010001 




300 


024 752 








024 752 


104455 






024/54 


000317 






024 756 


003652 






024 760 


012034 




301 


024 762 






302 


024762 


004 73 7 


010662 


303 


024 766 


103405 




307 


024770 


010001 




308 


024772 








024772 


104456 






024 774 


000320 






024 776 


005056 






025000 


012034 




309 


025002 






310 


025002 


005037 


002224 


311 


02^006 


012704 


025160 


312 


025012 


052714 


007000 


313 


025016 


010465 


OOOOOO 


314 


025022 


004 73 7 


016250 


315 


025026 


103405 




31ft 


025030 


010001. 




320 


025032 








025032 


104455 






025034 


000321 






025036 


025773 






025040 


012046 




321 


025042 








025042 


104406 





17 5 14 



BEQ 
JSR 



60$ 
PCCKDROP 



SEQ 100 



i BRANCH IF NOT 

j TRY TC DROP THE UNIT 



TEST 2, SUBTEST 2 

CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
WRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 



5*t 



BGNSU6 



SETPRI OPRIOO 



MOV *T14PK2,R4 

JSR PC.T14RESV 

JSR PC.T14RST 
BGNSEG 



JSR 


PC. SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



10$ 



JSR 


PC.WRTCHR 


BCS 


11$ 


MOV 


R0.R1 


ERRHRD 


ERRNO,WRTMSG t SFIMSG 



11$ 



CLR 


INTRECV 


MOV 


«T14PACKET,R4 


BIS 


0007000, (R4 ) 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T14SSR,PKTSSR 



;//////////// BEGIN SUBTEST ////////'/// 

T2.2: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 
T RAP C$SPRI 
:GET THE ADDRESS OF COMMANO PACKET 
{RES T ORE PACKET TO STARTING VALUES 
{RESTORE PACKET TO STARTING VALUES 
{>>>>>>>>>>>> BEGIN SEGMENT >>>>>>^>>>>>> 

TRAP C$BSEG 

{DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 207 
.WORD SFIERR 
.WORD SFIMSG 

iISSl€ WRITE CHARACTERISTICS 
{BR, IF COMMANO ISSUED OK 
{SAVE CONTENTS OF TSSR 
{WRITE SUBSYSTEM MEMORY 



FAILED 

TRAP 

,WO«D 

.WORD 

.WORD 



C$ERHRD 
208 

WRTMSG 
SFIMSG 



15$: 



CKLOOP 



{CLEAR INTERRUPT RECEIVED FLAG 

jSET-UP WITH WRT SU6SYS MEM PACKET 

{NON-ZERO COMMANO MODE BITS 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



{LOOP ON ERROR, IF FLAG 



TRAP 


C$ERDF 


.WORD 


209 


.WORD 


T14SSR 


.WORD 


PKTSSP 


SET 




TRAP 


CSCLP1 
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!<8 



SEQ 101 



322 025044 




025044 


104410 


025046 


000074 


323 025050 


005737 002224 


324 025054 


001004 


328 025056 




025056 


104456 


025060 


0O0322 


025062 


026063 


025064 


012046 


329 025066 


016501 000002 


330 025072 


012702 100206 


331 025076 


032701 000100 


332 025102 


001402 


333 025104 


052702 000100 


334 025110 


020201 


335 025112 


001404 


339 025114 




025114 


104456 


025116 


000323 


025120 


025676 


025122 


012046 


340 025124 




341 025124 


004737 011114 


342 025130 


103405 


346 025132 




025132 


104456 


025134 


000324 


025136 


004745 


025140 


015510 


347 025142 




025142 




025142 


104405 


348 




349 025144 




025144 




025144 


104403 


350 025146 




025146 


104432 


025150 


001246 


351 




352 




353 




354 




355 




357 


025160 


359 025160 




360 025160 


100206 


361 025162 


025170 


362 025164 


000000 


363 025166 


000006 


364 025170 




365 025170 


000 


366 0^1.71 


000 


36 i 1 72 


000000 


366 ■ . ;.»174 


000000 


369 025176 





22$ 



25$ 



30$: 
35*; 



ESCAPE 


SEG 


iBY-PASS CHECKS IF FATAL ERROR 










TRAP 


C$ESCAPE 








.WORD 


10000$ - . 


TST 


INTRECV 


iDID AN INTERRUPT OCCUR 


? 




BNE 


22$ 


I BRANCH IF YES 






ERRHRD 


ERRNO , T 14NINT t PKTSSR 




TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
210 

T14NINT 
PKTSSR 


MOV 


TSSR(R5),R1 


{GET THE CONTENTS OF TSSR 




MOV 


*SC!SSR!TSREj t R2 


{EXPECTED CONTENTS OF TSSR 




BIT 


#0FL,R1 


iIS OFF-LINE BIT SET ? 






BEU 


25$ 


{BRANCH IF NOT OFF-LINE 






8IS 


40FL.R2 


iSET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 


j DOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 


jOKAY IF MATCH 






ERRHRD 


ERRNO, T142REJ, PKTSSR 


j COMMAND NOT REJECTED 


TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
211 

T142REJ 
PKTSSR 


JSR 


PC, CKRAM 


j CHECK RAM TO MEMORY 






BCS 


59$ 


s RAM OK GO ON 






ERRHRD 


ERRNO, PKTRAM , RAMERR 


{THEY DON' T MATCH 


TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
212 

PKTRAM 
RAMERR 


ENDSEG 




•<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 






10000$: 


TRAP 


CiESEG 



59$: ENDSUB 



EXIT TST 



;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10041: 

TRAP C$ESUB 
j ALL DONE THIS TEST 

TRAP CJEXIT 
.WORD L10037-. 



i ♦ 



{LOCAL STORAGE FOR THIS TEST 



.-<. »10>C177770 



T14PACKET; 




.WORD 


100206 


.WORD 


T14DATA 


.WORD 





.WORD 


6. 


T14DATA: 




T14BS0: .BYTE 





T14BS1: .BYTE 





T14BS2: .WORD 





.WORD 





T14BFR; .BLKW 


128, 



i COMMAND PACKET FOR TEST 

I WRITE SUBSYSTEM MEM, COMMAND, WITH IE, ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 

jBSELO BYTE 

{BSEL1 BYTE 

iBSELl WORD 

{DATA 

{MESSAGE BUFFER 



L8 
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SEQ 102 



370 

371 

373 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

38b 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

396 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 



025600 
025600 
025602 
025604 
025606 



025610 
025610 
025612 
025614 
025616 



025622 
025676 
025773 
026063 
026155 
026241 



026306 
026306 
026.^12 
026316 
026322 
026326 
026330 
026334 
026336 
026340 
026342 



026344 
026344 
026350 

026354 
026360 
026364 
026366 



025600 

100204 
025610 
000000 
000010 



025176 
000000 
000400 
000000 



127 
127 
103 
105 
111 
102 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



012/01 
012721 
012721 
005021 
012721 



T14PK2: 



.-<. *10>£177770 



T14DTA: 



000000 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100204 

T14DTA 



8. 



T14BFR 


256. 
0,0 



; COMMAND PACKET FOR TEST 

jWWITC CHARA. MEM. CMND. , WITH IE, ACK 

j ADDRESS OF SELECT DATA BLOCK 

jSTARTING VA! UE OF BLOCK SIZE 



I SELECT DATA BLuCK 
{ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



{LOCAL TEXT MESSAGES FOR TEST 



122 

122 
157 
170 
156 
141 



111 
111 
156 
160 
143 
163 



T14N6A: 

T142REJ: 

T14SSR: 

T14NINT 

T14TSBA 

TST14ID 



.ASCIZ 
.ASCIZ 



.EVEN 



•WRITE SUBSYSTEM MEMORY Command Not Accepted' 

.ASCIZ 'WRITE SUBSYSTEM MEMORY Not Rejected With Non-Zero Mode Field' 

•Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Basic WRITE SUBSYSTEM MEMORY Command' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T14REST: 



025160 
100206 
025170 

000006 



T14RST: 



025600 
100204 
0P5610 

000010 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 



0T14PACKET.R1 

0100206. CRD* 

♦T14DATA.CR1)* 

CRD* 

06. ,(R1)* 

CRD* 

CR1)> 

(Rl) 

PC 



0T14PK2.R1 

0100204, CRD* 
#T14DfA,CRl)» 

CRD* 



WITH ACK. IE 



j SAVE THE REGISTERS 

j START OF THE PACKET 

{WRITE SUBSYSTEM MEM. 

j ADDRESS OF DATA BLOCK 

{EXTENOED ADDRESS 

i SIZE OF DATA BLOCK IN BYTES 

j CLEAR BSELO AND BSEL1 

{CLEAR SEL2 

! CLEAR DATA AREA 

{RETURN 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE CHARA, WITH ACK, 

{ADDRESS OF CHARAISTVC? 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BU TES 



IE 

DATA BLOCK 



TSVL> - HARDWARE TESTS MACRO Ml 113 Q6-FFB- 
TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 



84 17:14 



429 


026372 


012721 


025176 


4 30 


026376 


005021 




431 


026400 


012721 


000400 


432 


026404 


005021 




433 


026406 


005011 




4 34 


026410 


005037 


025176 


435 


026414 


000207 




436 


026416 
026416 








026416 


104401 





M8 



MOV 


OTUBFR.CRl)* 


CLR 


CRD* 


MOV 


0256. ,CRl)f 


CLR 


CRD* 


CLR 


CR1) 


CLR 


T14BFR 


RTS 


PC 


ENDTST 





SEQ 103 

{MESSAGE BUFFER ADDRESS 
{LENGTH OF MESSAGE BUFFER 



jCLEAR 1ST LOC IN MESSAGE BUFFER 
{RETURN 



L10037; 



TRAP CSETST 



N8 
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438 
439 
440 
441 
442 
44 3 
444 
445 
446 
44 7 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 



06-FEB-84 
COMMAND 



3 t :14 



SEQ 104 



.SBTTL TEST 3: DMA MEMORY ADDRESSING 



i ♦ ♦ 

i TEST 3 

TEST DESCRIPTION 



This test verifies that the controller can properly address or\<i 
access all available CPU mer.>ory (other than that occupied by the 

' - " ■ ■■ " 'DAT I) 

all 
been 
used for DMA transfers. 



access all available CPU mer-ory (other than that occupied by 
di agnostic and diagnostic supervisor code) for both rending ( 
and writing (DATO). Verified are the LSI-11 Bus drivers for a 
available address lines, Up to this point only 16 bits have b 



TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 



4 70 
471 
472 
473 
4 74 
4 75 
476 
4 77 
4 78 
4 79 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
495 
4 94 
4^5 
4 9*, 
49? 



026420 
026420 
026420 
026424 
026430 
026436 
026442 

026446 



BEGIN 

Do Subtest 1 

Do Subtest 2 

Do Subtest 3 

Do Subtest 4 

END 



BGNTST 



Ver i fy 
Veri fy 
Verify 
Veri fy 



GET STATUS selected locations 
message p»*?kets selected locations 
Characteristic data selected locations 
NXM to selected Invalid addresses 



012700 
004737 
012737 
005,737 
004 737 



030470 
016510 
000012 
003150 
021276 



002216 



MOV 


0TST12ID.R0 


JSR 


PC.TSTSETUP 


MOV 


010. , LOOPCNT 


INC 


T3BFLG 


JSR 


PC.MEMCK 



T3: : 
{ASCII MESSAGE TO IDENTIFY TEST 
sDO INITIAL TEST SETUP 
{PERFORM 10 ITERATIONS 
jSET TEST FLAG 
{CHECK MEMORY 

T12L00P: ;L00P ON TEST LABEL 

.SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 

TEST 3: SUBTEST 1: 

SUBTEST DESCRIPTION: 

This subtest verifies the controller can fetch a get status 

command from all available memory locations. 

Two word blocks are tested one at a time by first setting 

all available memory to a background pattern of 125252. 

A Get Status command is then executed to various addresses In 

eacr available memory 4k word block. The various *t*d»*«j^s*s 

arc determined by floating a 1 then a through the address bits 

TEST STEPS; 



BEGIN 

Write to TSSR to soft Ir i t :*al !^« 
Do a WRITE CHARACTERISTICS to setup 



a message buffer 



B9 



TSV5 HARDWARE 


TESTS 


MACRO r 


TEST 3: 


SUBTEST 


1; GET 


STATUS J 


498 








499 








500 








SOI 








50.? 








503 








504 








505 








506 


026446 

026446 








026446 


104402 




50 7 








5oe 








509 








510 


026450 


004737 


015774 


511 


026454 


103405 




512 


0264 SS 






513 


026456 


010001 




514 


026460 








026460 


104455 






026462 


000455 






0264M 


003652 






026466 


012034 




515 








516 








517 


0264 70 






516 


0264 70 


012704 


030260 


519 


0264 74 


004737 


031640 


520 


0265O0 


005037 


003154 


521 


026504 


010465 


000000 


522 


026510 


004737 


016336 


523 


026514 






524 


026530 


103405 




525 


026532 


010001 




526 


026534 






52? 


026534 








026*34 


104455 






026536 


000456 






026510 


030572 






026542 


012046 




528 








529 








530 








531 








532 


026541 


005037 


002222 


533 


026550 


005037 


030330 


534 


02655* 


012702 


030334 


535 


02656C 






536 


026560 


005037 


003134 


537 


026564 


012201 




53ft 


026566 


005000 




559 


0265 70 


005737 


030330 


540 


026574 


001407 




541 


0265 76 


016200 


17 77 76 


542 


026602 


042700 


1 77774 


54 5 


026606 


012737 


000001 


544 


026614 


004737 


031336 



M1113 06 FEB 84 17}14 
SELECTED LOCATIONS 



SEQ 105 



END 



REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid modulo -4 teat addrees 

Do a GET STATUS command from the teat address 
END 



BGNSUO 



iWrite to TSSR to aoft Initial?** 
JSR PC, SOFINIT 
BCS 151 
NEXT, ERRNO 
MOV R0.R1 
ERRDF ERRNO , SF IERR , SF IMSG 



\//////////// BEGIN SUBTFST ////////// 

T3.li 

TRAP CIBSUB 



iDO SOFT INIT Of CONTROLLER 
I BR IF SOFT INIT • OK 

iSAVE CONTENTS Of" TSSR 

IDEVICE FATAL ERROR DURING INIT 

TRAP CIEHDf 

.WORD 301 

.WORD SFIERR 

.WORD SFIMSG 



iDo a WRITE CHARACTERISTICS to aetuo a meeeaee buffer 



15$: 



171: 



mov 


♦T12PACKET.R4 


JSR 


PC.T12SWRT 


CLR 


KTENA8LE 


MOV 


R4,TSD6(R5) 


JSR 


PC, CMKVSSR 


fORCERROR 17$ 


BCS 


201 


MOV 


R0,R1 


NEXT. 


ERRNO 


ERRDF 


ERRNO, U2WRTSSR,PK TSSR 



iGET THE ADORESS Of COMMAND 
iRESTORE PACKET TO STARTING 
iTURN OFF KT -11 
I SET THE PACKET ADDRESS 
IWAIT FOR SSR TO SET 



PACKET 
VALUES 



iBR IF SSR SET IN 
|SAVE CONTENTS Of 

(DEVICE FATAL SSR 



Cr*TSSR 
TSSR 

FAILED TO SET 
TRAP 

.WORD 
.WORD 
.WORD 



CIERDF 

302 
T12WRTSSR 

p=:tssr 



i Verify a Get Statue can be fetched from each eddreee 
iGet a valid modulo 4 teat edo>eee 
»Do a GET STATUS command from tie teat 



003154 



201 s CLR 
CLR 
MOV 

T121L00P: 

CLR 
MOV 
CLR 
TST 
BEO 
MOV 
BIC 
MOV 

25 1 j JSR 



FATFiG 

T12KT 

M12BLK.R2 

KTENABl E 

RO 

T12KT 

251 

2(R2),R0 
0»C<A1 716» ,R0 
• l.KTENABl \ 
PCiH2C0MVtRT 



addraee 

l CLEAR FATAL ERROR FLAG 
i TEST ABOVE 2ftK SWITCH 
iPOINT TO TEST PATTERN TABLf- 

I TURN Off ABOVE 28K TEST fXAU 
|GET TEST PATTERN ADDRESS 
lASSUME NO TEST ABOVE 2ftK 
i TEST ABOVE 28K THIS TIME? 
iSR IF NO 

iGET TEST PATTERN AGAIN 
iSAVi 18 BIT ADDRESS ONt i 
jTURN ON ABOVE 26K TEST M At, 
iCUNVERT TEST PATTERN TO TEST 



ADDRESS 



C9 



\m s,*mm mh s weg mixt^mi^A 



7*14 



545 

546 
54 7 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



559 

560 
561 
562 
563 
,564 
565 
566 
567 
568 
569 
570 
571 
572 
573 



5 74 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
58/ 
588 
589 
590 
591 
59? 
59 5 
594 



026620 
026622 
026626 
026632 
026636 
026642 
026644 
026650 
026654 
026660 
026674 
026676 
026700 
026700 
026700 
026702 
026704 
026706 
026710 
026710 
026712 
026712 
026722 
026726 
026730 
026734 
026740 
026742 
026746 
026750 
026756 
026762 
026766 
026772 
026772 
026 7 72 
026 7 74 
027000 
027002 
027006 



103034 
013704 
013703 
004737 
042703 
050304 
004737 
010465 
004737 

103405 
010001 



104455 
000457 
030516 
012064 

104406 



020227 
103002 
000)..*"/ 
005 75/ 
003012 
0057J7 
001407 
012737 
012702 
000137 
004 737 



104403 

005737 

001402 
004737 



030324 
030322 
031706 
177774 

017274 
000000 
016336 



32$} 



BCC 


651 


MOV 


T12L0A00.R4 


MOV 


T1?HIADD,R3 


JSR 


PC, U2SETGET 


BIC 


♦tC<A17l6>,R3 


BIS 


RS»R4 


JSR 


PC.KTOfF 


MOV 


R4.TSDBCR5) 


JSR 


PCCHKTSSR 


FORCERROR 321 


BCS 


401 


MOV 


R0.R1 


NEXT, 


ERRNO 


ERRDF 


ERRN0.T12GETSSR.PKTGETS 



SEQ 106 



|BR IF INVALID PACKET 

,COPY CURRENT PACKET LOW ADDRESS 

iCOPY CURRENT PACKET HIGH ADDRESS 

jSETUP CURRENT PACKET TO GET STATUS 

iSAVE ADDRESS BITS 17*16 

I SETUP 18 BIT PACKET ADDRESS 

I TURN OFF KT-11 

I SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

I BR IF SSR SET IN CH"TSSR 
I SAVE CONTENTS OF TSSR 



030466 

026560 
030330 

003132 

OOOCOl 

030334 
026560 
017274 



00222? 

017202 



030330 



401: 


CKLOOP 




651: 








FORCEXIT 80 




CMP 


R2,«T12TBE 




BHIS 


70$ 




JMP 


T121L0OP 


701 j 


TST 


T12KT 




BGT 


80$ 




TST 


KTFLG 




BEQ 


80$ 




MOV 


M.T12K: 




MOV 


♦T12BLK.R2 




JMP 


T121L0OP 


80$: 


JSR 
ENOSUB 


PC.KTOFF 




TST 


FATFLG 




BEQ 


100$ 




JSR 


PCCKDROP 



jDEVICE FATAL oSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

lLOOP ON ERROR, IF FLAG SET 

TRAP 



TEST PATTERNS? 



C$ERDF 

303 

T12GETSSR 

PKTGETS 

CICLP1 



MOOULO 4 AODRESS 
28K TESTING TOO? 

ABOVE 23K ON SYSTEM? 



100$: 



jDONE ALL TSTBLK 
tBR IF YES 
i DO ANOTHER 
I DONE ABOVE 
»8R IF YES 
lANY MEMORY 
,BR IF NO 
,SET SWITCH 

iRFSET TEST PATTERN TABLE 
jDO ABOVE 28K TESTING 
I TURN OFF KT11 
|\\\\\\\\\\\\\ ENO SUBTEST 

L 10043 j 

TRAP C$ESUG 
; AN> FATAL ERRORS ? 
iBMANCH IF NOT 
jTRY TO DROP THE UNIT 



.SBTTL TEST 3j SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 



\\\\\\\\\\\\\ 



TEST 3: SUBTEST 2: 

SUBTEST DESCRIPTION: 

Thia aubteat verifiae the controller can d#PO» I t 
to all available memory location*. 
Write Character i at ic* command* arm t^tcuttd with 
buffer addrtfttfl aet to various addras«a« in #ach 
memory location. 



meaaaQ* packets 
fHftftot 



TEST 



avai Table 

Tha variooi addraase* ara determined by floating a 1 than a 
through the (KWr«*e bits* 

STEPS ; 
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TSV5 HARDWARE TESTS MACRO Mil 13 06 FEB -84 



TEST 3 j SUBTEST 



595 

596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 



MESSAGE PACKETS TO SELECTED 



17:14 

LOCATIONS 



SEQ 107 



610 
611 
612 
613 
614 
61b 
616 
617 



618 

619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 



631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 



027006 
027006 
027006 



027010 
027014 
027016 
027016 
027020 
027020 
027022 
027024 
027026 



027030 
027030 
027034 
027040 
027044 
027050 
02 7054 
027070 
027072 
027074 
027074 
027074 
027076 
027100 
027102 



027104 
027H0 
027114 
027H4 
027116 
02 7120 
027124 



BEGIN 

Write to TSSR to soft initialise 

Do a WRITE CHARACTERISTICS to «etup a message buffer to compare 

REPEAT FOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Gat a valid modulo-4 taat address 
Sat tha packet messaoe buffer to the TEST ADDRESS 
Do a WRITE CHARACTERISTICS 

Restore the teat message buffer to background pattern 
END 
END 



104402 



004737 015774 
103405 

010001 

104455 
000460 
003652 
012034 



012704 030260 

00*73 7 031640 

004737 017274 

010465 000000 

004737 016336 

103405 
10001 



104455 
000461 
030572 
012046 



005037 002222 

012703 030334 

012301 

010100 

042 700 17 7774 

042701 000003 



BGNSU6 



jWrite to TSSR to soft Initialize 
JSR PC.SQFINIT 
BCS 151 
NEXT, ERRNO 
MOV R0,R1 
ERRDF ERRNO , SFIERR , SF IMSG 



,//////////// BEGIN SUBTEST ////////// 

T3.2: 

TRAP C*BSUB 



,00 SOFT INIT OF CONTROLLER 
,BR IF SOFT INIT - OK 

,SAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.WORD 304 

.WORD SFIERR 

.WOflD SFIMSG 



jDo a WRITE CHARACTERISTICS to setup a message buffer to compare 
151: 



17$: 



MOV 


OT12PACKET.R4 


JSR 


PC, 


T12SWRT 


JSR 


PC, 


KTOFF 


MOV 


R4, 


TSDBCR5) 


JSR 


PC. 


CMKTSSR 


FORCERROR 


17$ 


BCS 


20* 




MOV 


RO, 


Rl 


NEXT. 


ERRNO 




ERRDF 


ERRNO, U2WRTSSR.PKTSSR 



,get the address of command packet 
,set packet to write characteristics 

,Tl«N OFF KT-11 

,set the packet address 



,WAIT FOR SSR TO SET 



,BR IF SSR SET IN 
jSAvE CONTENTS OF 

, DEVICE FATAL SSR 



CHKTSSR 
TSSR 

FAILED TO SET 
TRAP 
.WORD 
.WOPO 
.WORD 



CtERDF 
305 

T12WRTSSR 
PKTSSR 



iGet a valid modulo-4 test address 

j Set the packet message buffer to the test address 

,Do a WRITE CHARACTERISTICS 



20»: CLR 


FATFLG 


MOV 


OT12BLK.R3 


U22L00P*. 




MO/ 


(R3)*,R1 


MOV 


Pt.RO 


BIC 


0177774, RO 


BIC 


*3,R1 



j CLEAR FATAL ERROR FLAG 

, POINT TO TEST PATTERN TABLE 

jGET TEST PATTERN ADDRESS 
iGET ADDRESS ALL "18 BITS" 
»LEAVE ONLY A17 ANO A16 
,GET RID OF A17 AND Alb 
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TSV5 - HARDWARE TESTS MACRO MU13 06-FEB-84 17*14 
TEST 3: SUBTEST 2; MESSAGE PACKETS TO SELECTED LOCATIONS 



642 027130 


004737 


031336 


643 027134 


103402 




644 027136 


000137 


027234 


645 027142 


012704 


030260 


646 027146 


004737 


031640 


647 027152 


013737 


030324 030270 


648 027160 


013737 


030322 030272 


649 027166 


004737 


017274 


650 027172 


010465 


000000 


651 027176 


004737 


016336 


652 027202 






653 027216 


103405 




654 027220 


010001 




655 027222 






656 027222 






027222 


104455 




027224 


000462 




027226 


030572 




027230 


012046 




657 027232 






027232 


104406 




658 027234 






659 027234 






660 027244 


020327 


030466 


661 027250 


103002 




662 027252 


000137 


027114 


663 027256 


004737 


017274 


664 027262 






027262 






027262 


104403 




665 027264 


005737 


002222 


666 027270 


001402 




667 027272 


004737 


017202 


668 027276 






669 






670 






671 






6 72 






673 






674 






675 






676 






677 






678 






679 






680 






681 






682 






683 






684 






685 






686 






687 






688 






689 






690 






691 







25$; 



32$: 



JSR PC.T12C0NVERT 

BCS 25$ 

JMP 150$ 

MOV JT12PACKET.R4 

JSR PC.T12SWRT 

MOV T12L0ADD,T12DATA 

MOV T12HIADD, T12DATA*2 

JSR PC.KTOFF 

MOV R4,TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 32$ 

BCS 50$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T12WRTSSR t PKTSSR 



50$: 


CKLOOP 




150$: 








FORCEXIT 16 




CMP 


R3.0T12TBE 




BHIS 


160$ 




JMP 


T122L00P 


160$: 


JSR 
ENDSU6 


PC.KTOFF 




TST 


FATFLG 




BEQ 


180$ 




JSR 


PC.CKOROP 



180$: 



SEQ 108 



, CONVERT TEST PATTERN TO TEST ADDRESS 

I BR IF VALID MESSAGE BUFFER ADDRESS 

•GET ANOTHER TEST PATTERN TO TRY 

,SET THE COMMAND PACKET ADDRESS 

•SETUP T12PACKET TO WRITE CHAR. 

, SETUP LOW ORDER MESSAGE BUFFER ADD. 

♦SETUP HIGH ORDER MESSAGE BUFFER ADD, 

•TURN OFF KT-11 

,SET THE PACKET ADDRESS TO EXECUTE 

,WAIT FOR SSR TO SET 

f BR IF SSR SET IN CHKTSSR 
jSAvE CONTENTS OF TSSR 

•DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

. WORD 306 

.WORD T12WRTSSR 

.WORD PKTSSR 

j LOOP ON ERROR, If FLAG SET 

TRAP C$CLP1 



•DONE ALL TST12BLK TEST PATTERNS? 
,BR IF YES 

i DO ANOTHER MODULO- 4 ADDRESS 
jTURN OFF KT11 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10044: 

TRAP C*ESUB 
; ANY FATAL ERRORS ? 
j BRANCH IF NOT 
{TRY TO DROP THE UNIT 



.SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 

TEST 3: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This subtest verifies the controller can fetch a 
Write Characterist Ico data block from all available 
memory locations. 

Write Characteristics commands are executed with 
characteristic data blocks at varioue memory addresses. 
The various memory addresses ar^ determined by Floating 
a 1 then a through the address bits* 

TEST STEPS: 

BEGIN 

Write to TSSR to -soft initialize 

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 
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SEQ 109 



692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 



703 
704 
705 
706 
707 
708 
709 
710 



711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
7 34 
735 
736 
737 
738 
739 
740 
741 
742 



027276 
027276 
027276 



027300 
027304 
027306 
027306 
027310 
027310 
027312 
027314 
027316 



027320 
027324 
027330 
027334 
027334 
027340 
027342 
027344 
027350 
027354 
027360 
027362 
027366 
027372 
027400 
027404 
027406 

027412 
027416 
027422 
027430 
027436 

027442 
027446 
027452 
027456 
027472 
027474 



104402 



004737 
103405 

010001 

104455 
000463 
003652 
012034 



005037 
005037 
012703 

005037 
012301 
010100 
042700 
042701 
005737 
001407 
01o300 
042700 
012737 
004737 
103402 
000137 

012704 
004737 
013764 
013764 
004737 

004737 
010465 
004737 

103405 
010001 



015774 



030260 
031640 
03C324 
030322 
031750 

017274 
000000 
016336 



1 



BEGIN 



END 



END 



BGNSUB 



Get a valid test address 

Set the test packet characteristics data pointer to the 

test address. 
Store expected characteristic data in test address block 
Do a WRITE CHARACTERISTIC command 



l//////////// BEGIN SUBTEST ////////// 

T3.3: 

TRAP CSBSUB 



{Write to TSSR to soft initialize 
JSR PC.SOFINIT 
BCS 20* 
NEXT.ERRNO 
MOV R0.R1 
ERRDF ERRNO , SF IERR , SF IMSG 



002222 
030330 
030334 

003134 



177774 
000003 
030330 

177776 

177774 

000001 003134 

031336 

027510 



{Get a valid 
20$: CLR 
CLR 
MOV 
T123L00P: 

CLR 
MOV 
MOV 
BIC 
BIC 



test address 
FATFLG 

T12KT 
#T12BLK,R3 



25$ 



TST 
BEQ 
MOV 
BIC 
MOV 
JSR 



000002 
000004 



JMP 

{Set the test 
30$s MOV 
JSR 
MOV 
MOV 
JSR 
;Do a WRITE 
JSR 
MOV 



K TENABLE 

(R3)*,R1 

Rl.RO 

0177774, RO 

03, Rl 

T12KT 

25$ 

-2(R3),R0 

*tC<A1716>,RO 

•l.KTENABLE 

PCT12C0NVERT 

30$ 

60$ 
packet characteristics 

0T12PACKET.R4 

PC.T12SWRT 

T12L0A0D.PKL0W(R4) 

U2HIADD,PKHI(R4) 

PC.T12CHAR 
CHARACTERISTIC command 

PC, K TOFF 

R4.TS0BCR5) 
JSR PC.CHKTS5R 
FORCERROR 32$ 
BCS 40$ 
MOV R0.R1 



{DO SOFT INIT OF CONTROLLER 
} BR IF SOFT INIT • OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

.WORD 307 

.WORD SFIERR 

.WORD SFIMSG 



CLEAR FATAL ERROR FLAG 
TEST ABOVE 28K SWITCH 
POINT TO TEST PATTERN TABLE 

TURN OFF ABOVE 28K TEST FLAG 
GET TEST PATTERN ADDRESS 
GET ADDRESS ALL "18 BITS" 
LEAVE ONLY Ar, ANO A16 
GET RID Of Pi7 AND A16 
TEST ABOVF 28K THIS TIME.? 
BR IF N^ 

GET TEST PATTERN AGAIN 
SAVE 18 BIT ADDRESS ONLY 
TURN ON ABOVE 28K TEST FLAG 
CONVERT TEST PATTERN TO TEST ADDRESS 
BR IF VALID TEST ADDRESS 
GET NEXT TEST PATTERN 
data pointer to the test address 

GET THE ADDRESS OF COMMAND PACKET 
RESTORE PACKET TO STARTING VALUES 
STORE CHAR. DATA PTR LOW ADDRESS 
STORE CHAR. DATA PTR HIGH ADDRESS 
STORE EXPECTED DATA IN DATA BLOCK 

TURN OFF KT-11 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR ro SET 

BR IF SSR SET IN CHKTSSR 
SAVE CONTENTS OF TS5R 
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TEST 3; SUBTEST 3; CHARACTERISTIC DATA SELECTED 



06-FEB-84 17il4 

LOCATIONS 



7J.3 027476 
/44 027476 
027*76 
027500 
027502 
027504 

745 027506 
027506 

746 027510 
1A : 027510 
743 027514 
7<i9 027516 

750 027522 

751 027526 

752 027530 

753 027534 

754 027536 

755 027544 

756 027550 

757 027554 

758 027560 
027560 
027560 

759 02756? 

760 027566 

761 027570 

762 027574 
763 

764 
765 
766 
76 7 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 



104455 
000464 
030572 
012046 

104406 

020327 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012703 
000137 
004737 



104403 
005737 
001402 
004737 



NEXT.ERRNO 
32$: ERRDF ERRN0.T12WRTSSR ,PKTSSR 



030466 

027334 
030330 

003132 

000001 
030334 
027334 
017274 



009222 
017202 



030330 



40$: 


CKLOOP 




60$: 








CMP 


R3,*T12TBE 




BHIS 


65$ 




JMP 


T123L00P 


65$: 


TST 


T12KT 




BGT 


70$ 




TST 


KTFLG 




BEQ 


70$ 




MOV 


•1.T12KT 




MOV 


*T12BLK,R3 




JMP 


T123L00P 


70*: 


JSR 
ENDSUB 


PC, l< TOFF 




TST 


FATFLG 




BEQ 


75$ 




JSR 


PC.CKDROP 



SEQ 110 



I DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 308 

.WORD T12WRTSSR 

.WORD PKTSSR 

5 LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

tOONE ALL TSTBLK TEST PATTERNS? 
rBR IF YES 

j DO ANOTHER MODULO- 4 ADDRESS 
iDONE ABOVE 28K TESTING TOO? 
;BR IF YES 

j ANY MEMORY ABOVE 28K ON SYSTEM? 
j BR IF NO 
j SET SWITCH 

i RESET TEST PATTERN TABLE 
j DO ABOVE 28K TESTING 
j TURN OFF KT11 

;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 

L 10045 j 

TRAP CSESUB 
j ANY FATAL ERRORS ? 
j BRANCH IF NOT 
l TRY TO DROP THE UNIT 



75$ 



* * 



.SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 

TEST 3: SUBTEST 4: 

SUBTEST DESCRIPTION: 

This subtest verifies the NXM error bit in the TSSR 

register is set when attempting to fetch data (a characteristic 

data block) from selected nonexistent locations. 

If NXM fails to set it Is likely that an LSI-11 Bus driver is 

failing to assert an address line. 

Addresses tested include all combinations c* high -order address 

bits ( i .e bits 16-21). 

************************** ********** ************ «*** ********** **** 

CAUTION 

The LSI BUS drivers for all available address linesC 16-21) 
are only checked when running on a 11/238 system with more than 

128K words of memory* 

*************************** **************************************** 

TEST STEPS: 

BEGIN 

Write to TSSR to soft initialize 
Do a write characteristic command 
Invert the extended features switch 

REPEAT FOR SELECTED NCN-EXI5TENT MEMQRr ADDRESSES 
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TEST 3 j SUBTEST 4; NXM TO SELECTED INVALID "AODR 



p6-FEB : 04_17il4 



SEQ 111 



793 






794 






795 






796 






797 






798 






7Q9 






800 






801 






802 






803 0275/4 






027574 






027574 


104402 




804 






805 






806 027576 


005737 


003144 


807 027602 


001406 




808 027604 


023727 


002120 007777 


809 027612 


103402 




810 027614 


000137 


030206 


811 027620 






812 027620 


005737 


003136 


813 027624 


001002 




814 027626 


000137 


030206 


815 






816 






817 






818 027632 


004737 


015774 


819 027636 


103405 




820 027640 






821 027640 


010001 




822 027642 






027642 


104455 




027644 


000465 




027646 


003652 




027650 


012034 




823 






824 






825 






826 027652 






02 7652 


104406 




827 0276 54 


012704 


030260 


828 027660 


004 737 


031640 


829 027664 


005037 


003134 


830 027670 


010465 


000000 


831 027674 


004737 


016336 


832 027 700 






833 027714 


103405 




854 027716 


010001 




835 02 7 720 






836 027720 






027720 


104455 




027722 


000466 




027724 


030572 




02 7726 


012046 




837 027730 






027 730 


104406 





BEGIN 



END 



END 



5$; 



BGNSUB 



TST 
BEQ 
CMP 
BLO 
JMP 

TST 
BNE 
JMP 



Get an invalid teat address 

Set the test packet characteristics data pointer to the 

test address, 
Do a WRITE CHARACTERISTIC command 
If TSSR register NXM bit not set then print error message 



t //////////// BEGIN SUBTEST ////////// 

T3.4; 

TRAP C$BSU6 



T23A 
5$ 

L$HIME, 07777 

5$ 

NOEX TF 

NXMFLG 

10$ 

NOEXTF 



CHK FOR 23A CPU 
BR, IF NOT 23A 
CHK FOR > 256KB 



BR, IF 



!56KB 



JMP OVER 256KB 



{Write to TSSR to soft initialize 

10$: JSR PC.SOFINIT 
BCS 11$ 
NEXT.ERRNO 
MOV R0,RI 
ERRDF ERRNO , SFIERR , SF IMSG 



{26-APR-83 REV 6 

{26-APR-83 REV 8 

I26-APR-83 REV B 

t 26 -APR -83 REV B 

{26-APR-83 REV B 

j GOT ENOUGH MEMORY? 
jIF SET STAY 
{LEAVE IF NOT SET 



{DO SOFT INIT OF CONTROLLER 
{BR IF SOFT INIT - OK 

{SAVE CONTENTS Of TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
309 

sriERR 

SFIMSG 



{Do a WRITE CHARACTERISTIC command so to Invert switch 



11$ 



CKLOOP 



MOV 


«T12PACKET,R4 


JSR 


PC.T12SWRT 


CLR 


KTENABLE 


MOV 


P4,TSDB(R5) 


JSR 


PC. CHK TSSR 



15$ 



15$ 



171 



FORCERROR 

BCS 17$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T12WRTSSR.PKTSSR 



CKLOOP 



{LOOP IF SELECTED 

TRAP C$CLP1 
{GET THE ADDRESS OF COMMANO PACKET 
{RESTORE PACKET TO STARTING VALUES 
,TURN OFF KT-11 
{SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 

{BR IF SSR SET IN CHKTSSR 
{SAVE CONTENTS OF TSSR 

iDEVir" FATAL SSR FAILED TO SET 

TRAP C$fRDF 

.WORD 310 

.WORD T12WRTSSR 

.WORD PKTSSP 

{LOOP IF SELECTED 

TRAP CJCI.P1 
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838 
839 
840 
841 
842 
843 
844 
845 
846 
84 7 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 



865 
866 

867 
868 



869 
870 
871 
872 
873 
874 
875 
8 76 
877 
878 



879 
880 

881 
682 



027732 004737 021206 



02/736 
027742 
027742 
027750 
027756 



027756 
027762 
027766 
027774 



030002 
030006 
030012 
030016 
030032 
C30034 
030036 
030036 
030036 
030040 
030042 
030044 
030046 
030052 
030052 
030054 
030064 
030064 
030066 

030070 
030070 
030074 
030110 
030114 
030116 
030116 
030124 
030132 
030132 
030134 
030136 
030140 

030142 
030142 
030144 
030154 



JSR PC, INVERT 
j Get an invalid test address 



005037 002222 

013737 003142 030322 
013737 003140 030324 



20 it CLR 
25$: 

MOV 
MOV 
T124L00P: 



FATFLG 

NXMHI.T12HIAD0 
NXMLO.T12L0ADD 



SEQ 112 



j INVERT THE SWITCH 



j CLEAR FATAL ERROR FLAG 

{SAVE TEST ADDRESS HIGH 
{SAVE TEST ADDRESS LOW 



012704 
004737 
013764 
013764 



004737 
010465 
004737 

103407 
010001 



104455 
000467 
030572 
012046 
005237 

104406 



104410 
000124 



016501 

032701 
001012 

013737 
013737 

104456 
0004 70 
031227 
012126 



104406 
005737 



{Set the test packet characteristics data pointer to the 
j test address. 



030260 
031640 

030324 000002 
030322 000004 



017274 
000000 
016250 



30$: MOV OT12PACKET.R4 

JSR PC.T12SURT 

MOV T12L0ADC.PKL0WCR4) 

MOV T12HIADD,PKHI(R4) 

{Do a WRITE CHARACTERISTIC command 

JSR PC.KTOFF 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

FORCERROR 32$ 

BCS 40$ 

MOV R0,R1 

N£XT .ERRNO 
32$: ERRDF ERRNO, U2WRTSSR.PKTSSR 



{GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 
I STORE CHAR. DATA PTR LOW ADDRESS 
{STORE CHAR, DATA PTR HIGH ADDRESS 



{TURN OFF KT-11 

{SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

{BR IF SSR SET IN CHKTSSR 
{SAVE CONTENTS OF TSSR 



002222 



40$ 



INC 
CKLOOP 



FATFLG 



FORCERROR 

escape sue 



45$,N0TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
WORD 
{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP 

{BY-PA'jS SUBTEST IF FATAL ERROR 

TRAP 



000002 
004000 



030324 002240 
030322 002236 



{If TSSR register NXM bit not set then print error message 
45$: 

MOV TSSR(R5),R1 

FORCERROR 52$ 

BIT *NXM,R1 

BNE 60$ 

N£XT. ERRNO 
52$: MOV T12L0ADD,ERRL0 

MOV T12HIADD,ERRHI 

ERRHRD ERRNO , T 12NXM , ADDSSR 



.WORD 



C$ERDF 
311 

T12WRTSSR 
PKTSSR 



C$CLP1 



C$ESCAPE 
L 10046 -. 



{GET TSSR CONTENTS 

{NXM SET? 
{BR IF YES 



003144 



60$: CKLOOP 

FORCEXIT 
TST T23A 



90$ 



{MEMORY TEST ADDRESS LOW 
{MEMORY TEST ADDRESS HIGH 
{REPORT ADDRESS AND TSSR ERROR 

TRAP 
.WORD 
.WORD 
. WORD 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

{IS IT A 11/23A? 



C*ERHRD 
312 

U2NXM 
ADDSSR 



CtCLPl 



J9 
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883 030160 


001012 




884 03016? 


013700 


030322 


885 030166 


005200 




886 03C170 


020027 


00007? 


887 030174 


101004 




888 0301.76 


010037 


030322 


889 030202 


000137 


027756 


890 030206 






891 030206 






89.? 030206 


004737 


017274 


893 030212 






030212 






030212 


104403 




894 030214 


005737 


002222 


895 030220 


001402 




896 030222 


004737 


017202 


897 030226 


004737 


016456 


898 030232 


103002 




899 030234 


000137 


026446 


900 030240 






901 030240 


004737 


017274 


902 030244 


005037 


003150 


903 030250 






030250 


104432 




030252 


001540 




904 






905 






906 






907 






908 






909 






911 


030260 




913 030260 






914 030260 


100004 




915 030262 


030270 




916 030264 


oooooo 




917 030266 


000010 




918 






919 030270 






920 030270 


030302 




921 030272 


OOOOOO 




922 030274 


000016 




923 030276 


OOOOOO 


OOOOOO 


924 






925 030302 






926 






927 030322 


OOOOOO 




928 030324 


OOOOOO 




929 030326 


OOOOOO 




930 030J30 


OOOOOO 




931 030332 


OOOOOO 




932 






933 






934 






935 






936 






937 030334 


000001 







BNE 


90$ 




MOV 


T12HIADD.R0 


65$: 


INC 


RO 




CMP 


RO»#77 




BHI 


90$ 


75$: 


MOV 


R0.T12HIADD 




JMP 


T124L00P 


90$: 






NOEXTF: 








JSR 


PC.KTOFF 




ENDSUB 






TST 


FATFLG 




BEQ 


100$ 




JSR 


PC.CKDROP 


100$: 


JSR 


PC,TSTL00P 




BCC 


105$ 




JMP 


T12L00P 


105$: 








JSR 


PC.KTOFF 




CLR 


T3BFLG 




EXIT 


TST 



LOCAL STORAGE FOR THIS TEST 



.-<.»10>£177770 
T12PACKET: 

.WORD 100004 
.WORD T12DATA 
.WORD 
.WORD 8. 



T12DATA: 



.WORD 
.WORD 
.WORD 
.WORD 



T128FR 


14. 
0,0 



T12BFR: .BLKW 8. 



T12HIADD: 

T12L0ADD: 

T12PAR6: 

U2KT; 

T124TST- 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



{TABLE OF ADDRESSES 
T12BLK: .WORD 000001 



SEQ 113 



{YES WERE DONE 

{GET CURRENT HIGH ADDRESS 

iGET NEXT ADDRESS 

{DONE A21-A16? 

jBR IF YES 

{SETUP NEW HIGH ORDER ADDRESS 

I DO ANOTHER NON-EXISTENT ADDRESS 



{TURN OFF KT11 

i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 

L 10046: 

TRAP C$ESUB 
{ANY FATAL ERRORS ? 
{BRANCH IF NOT 
{TRY TO DROP THE UNIT 
{SHOULD WE DO ITERATIONS? 
}BR IF NO 
rLOOP UNTIL ITERATION COUNT DONE 

;TURN OFF MEMORY MANAGEMENT 

{CLEAR TEST FLAG 

{ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10042 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO, WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{LOW ADDRESS OF MESSAGE BUFFER 
{HIGH OHDER OF MESSAGE BUFFER 
{LENGTH OF MESSAGE BUFTER 



.MESSAGE BUFFER 

{HIGH ADDRESS 

;LOW ADDRESS 

I ADDRESS IN PAR FORMAT 

{TEST ABOVE 28K SWITCH 

{ADDRESS TEST BIT 
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SEQ 114 



938 

939 

940 

941 

942 

94? 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 



030336 
030340 
030342 
030344 
030346 
030350 
030352 
030354 
030356 
030360 
030362 
030364 
030366 
030370 
030372 
030374 
030376 
030400 
030402 
030404 
030406 
030410 
030412 
030414 
030416 
030420 
030422 
030424 
030426 
030430 
030432 
030434 
030436 
030440 
030442 
030444 
030446 
030450 
030452 
030454 
030456 
030460 
030462 
030464 
030466 



0304 70 
030516 
030572 
030661 
030757 
031045 
031136 
031227 



000002 
000003 
000005 
000006 
00OO07 
000011 
000012 
000013 
000021 
000022 
000023 
000041 
000042 
00OO13 
000101 
000102 
000103 
000201 
000202 
000203 
000401 
000402 
000403 
001001 
001002 
001003 
002001 
002002 
002003 
OO4001 
004002 
004003 
010001 
010002 
010003 
02OO01 
020002 
020003 
040001 
040002 
040003 
100001 
100002 
10OO03 
177777 



104 
103 
103 
115 
102 
105 
127 
124 



.WORD 


000002 


.WORD 


000003 


,WORD 


000005 


.WORD 


000006 


.WORD 


000007 


.WORD 


000011 


.WORD 


000012 


.WORD 


000013 


.WORD 


000021 


.WORD 


000022 


.WORD 


000023 


.WORD 


000041 


.WORD 


000042 


.WORD 


000043 


.WORD 


000101 


.WORD 


000102 


.WORD 


000103 


.WORD 


000201 


.WORD 


000202 


.WORD 


000203 


.WORD 


000401 


.WORD 


000402 


.WORD 


000403 


.WORD 


001001 


.WORD 


001002 


.WORD 


001003 


.WORD 


002001 


.WORD 


002002 


.WORD 


002003 


.WORD 


004001 


.WORD 


004002 


.WORD 


004003 


.WORD 


010001 


.WORD 


010002 


.WORD 


010003 


.WORD 


020001 


.WORD 


020002 


.WORD 


020003 


.WORD 


040001 


.WORD 


040002 


.WORD 


04 0003 


.WORD 


100001 


.WORD 


10CJ03 


.WORD 


10000 > 


T12TBE: .WORD 





177777 

i ► 

{LOCAL TEXT MESSAGES FOR TEST 

i • 



115 
157 
157 
145 
141 
170 
162 
123 



101 
156 
156 
163 
143 
160 
151 
123 



ed 



TST12ID: 

T12GETSSR 

T12VRTSSR 

T12MSGBUT 

T12BKGND: 

T12NINT; 

T12DPR: 

T12NXM: 



.ASCIZ 'DMA Memory Addressing' 

.ASCIZ 'Contents of TSSR Incorrect After GET STATUS' 

.ASCIZ 'Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 

.ASCIZ 'Message Buffer Contents Incorrect After WRITE CHARACTERISTICS' 

.ASCIZ 'Background Pattern Disturbed By WRITE CHARACTERISTICS' 

.ASCIZ 'Expected Interrupt Not Received On WRITE CHARACTERISTICS' 

.ASCIZ 'Write Characteristic date* in ram does not match expected' 

.ASCIZ 'TSSR NXM bit failed to set when non-existent memory address specif! 



L9 



TSV5 - HARDWARE 


TESTS 


MACRO t 


TEST 3: 


SUBTEST 


4} NXM 


TO SELEC 


995 








996 








997 








998 








999 








1000 








1001 








1002 








1003 








1004 








1005 








1006 








1007 








1008 








1009 








1010 








1011 








1012 








1013 








1014 








1015 








1016 








1017 


031336 






1018 


031336 






1019 


031342 


005037 


030324 


1020 


031346 


005037 


030322 


1021 


031352 


005037 


030326 


1022 


031356 


042701 


170000 


1023 


031362 


010005 




1024 


031364 


004737 


017274 


1025 


031370 


013702 


003124 


1026 


031374 


062702 


000020 


1027 


031400 


060102 




1U28 


031402 


042702 


000003 


1029 


031406 


013703 


003130 


1030 


031412 


162703 


000020 


1031 


031416 


010237 


030324 


1032 


031422 


010237 


030326 


1033 


031426 


020203 




1034 


031430 


1J1007 




1035 


031432 


020237 


003124 


1036 


031436 


103007 




1037 


031440 


005737 


003134 


1036 


031444 


001004 




1039 


031446 


000424 




1040 


031450 


162702 


000020 


1041 


031454 


000754 




1042 


031456 






1043 


031456 


005737 


003134 


1044 


031462 


001420 




1045 


031464 


005737 


003132 


1046 


031470 


001413 




104 7 


031472 


004737 


017256 


1048 


031476 


010500 




1049 


031500 


010037 


030322 


1050 


031504 


010201 




1051 


031506 


004/37 


017316 



M1113 06-FEB-84 17:14 
TO SELECTED INVALID ADDRESSES 

.EVEN 



SEQ 115 



{ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 

i DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 

j BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 

5 IF MEMORY ABOVE 28K SPECIFIED (VIA Rl) THEN PAR 6 IS SET 

I TO THE RELOCATION BASE. 

J 



INPUTS: 



RO 
Rl 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OUPTUTS: 

T12PAR6 - ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 

T.12HIADD - HIGH ORDER ADDRESS IN NON PAR6 FORMAT 

T12L0ADD - LOW ORDER ADDRESS IN NON PAR6 FORMAT 

C BIT - 1 IF GOOD ADDRESS RETURNED 

C BIT - IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



T12C0NVERT: 

SAVREG 

CLR 

CLR 

CLR 

BIC 

MOV 

JSR 

MOV 

ADD 

ADD 

BIC 

25$: MOV 

sue 

MOV 

MOV 

CMP 

BHI 

CMP 

BHIS 

TST 

BNE 

BR 

sue 

BR 



35$: 
50$; 



TST 
BEQ 
TST 
BEQ 
JSR 
MOV 
MOV 
MOV 
JSR 



T12L0ADD 

T12HIADD 

T12PAR6 

♦tC<7777> # Rl 

R0.R5 

PCKTOFF 

FREE,R2 

*16. ,R2 

Rl.R? 

03. R2 

FREEHI.R3 

#16. ,R3 

R2.T12L0AD0 

R2.T12PAR6 

R2.R3 

35$ 

R2.FREE 

50$ 

KTENABLE 

50$ 

90$ 

$16, ,R2 

25$ 

KTENABLE 

100$ 

KTFLG 

90$ 

PC.KTON 

R5.R0 

R0.T12HIADD 

R2.R1 

PCiSETMAP 



SAVE R1-R5 UNTIL NEXT RETURN 

CLEAR LOW ADDRESS 

CLEAR HIGH ADORESS 

CLEAR PAR6 BIASED ADDRESS 

FORCE TO LOWER 12 BITS OF ADDRESS 

SAVE HIGH ORDER ADDRESS BITS 

SHUTOFF MEMORY MANAGEMENT 

GET FIRS' r FREE ADDRESS 

IN CASE TEST PATTERN-0 

ADD IN TEST PATTERN 

MAKE IT MODULO -4 

GET LAST FREE ADDRESS 

SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER) 

SAVE POSSIBLE LOW ADDRESS 

SAVE IT IN PAR6 BIASED TOO 

IS THIS ADDRESS ABOVE FREE SPACE? 

BR IF YES 

IS IT IN FREE SPACE? 

BR IF YES- ITS GOOD 

TESTING ABOVE 28K? 

BR IF YES 

BR IF NOT IN FREE SPACE 

FORCE FIT THE TEST PATTERN 

TRY THIS TEST PATTERN ADDRESS 

TESTING ABOVE 28K? 

BR TF NO 

ANY MEMORY ABOVE 28K? 

BR IF NO 

TURN ON MEMORY MANAGEMENT 

GET HIGH ORDER ADDRESS 

SAVE POSSIBLE HIGH ADDRESS 

GET COMPUTED LOW ORDER ADDRESS 

RETURN PAR6 BIASED ADDRESS IN RO 



M9 



TSV5 - HARDWARE 


TESTS 


MACRO M 


1113 06-F 


EB-84 


Mi 




SEQ 116 


TEST 3; 


SUBTEST 


4: NXM 


TO SELEC 


TED INVALID AODR 






1052 


031512 


010037 


030326 






MOV 


R0.T12PAR6 


j COPY PAR6 BIASED ADDRESS 


1053 


031516 


103403 








3CS 


105$ 


f BR IF VALID ADDRESS 


1054 


031520 


000241 




90$: 


CLC 




»CLR C BIT FOR FAILURE 


1055 


031522 


000401 








BR 


105$ 


t 


1056 


031524 


000261 




100$: 


SEC 




l SET SUCCESS 


1057 


031526 


000207 




105 $5 


RTS 


PC 


t RETURN 


1058 


















1059 


















1060 










+ 








1061 


















106? 










ROUTINE TO READ THE FIRST 2 


BYTES FROM RAM 


1063 










MEMORY 


AND COMPARE THIS DATA 


TO A COMMAND PACKET. 


106* 


















1065 










INPUT: 








1066 


















1067 












R4 


ADDRESS OF THE COMMAND PACKET 


1068 












R5 


FIRST DEVICE 


UNIBUS ADDRESS 


106^ 


















1070 










OUTPUT 


j 






1071 


















1072 












CARRY 


SET - RAM MATCHES PACKET 


1073 














CLR - RAM DOES NOT MATCH PACKET 


1074 


















10/5 










IMPLICIT OUTPUT: 




1076 


















1077 












THE TABLE RAMOATA IS 


FILLED WITH THE 


1078 












DATA HELD IN RAM, 




1079 










\ 


RAMSIZ 


SET TO 2 FOR 


PRAMPKT ROUTINE 


1080 










i 








1081 










.SIDE EFFECTS- 






1082 


















1083 












THE SUBSYSTEM IS LEFT 


" IN MAINTENANCE MODE 


1084 


















1085 










_ 








1086 


031530 






' 


U2CKRAM: : 






1087 


031530 










SAVREG 




{SAVE THE GENERAL REGISTERS 


1088 


031534 


012701 


002242 






MOV 


4RAMDATA.R1 


••ADDRESS TO SAVE THE RAM DATA 


1089 


031540 


012702 


000201 






MOV 


*RMPKTBEG,R2 


iBYTE ADDRESS OF FIRST RAM DA 


1090 


031544 


005003 








CLR 


R3 


j CLEAR THE ERROR FLAG 


1091 


031546 


004737 


016336 






JSR 


PC.CHKTSSR 


;WAIT FOR SSR 


1092 


031552 


112765 


000000 


000000 




MOVB 


*0,TSDB(R5) 


j SET MAINTENANCE MODE 


1093 


031560 


004737 


016336 




L0$: 


JSR 


PC.CHKTSSR 


{WAIT FOR SSR TO SET 


1094 


031564 


010265 


000000 






MOV 


R2.TSDBCR5) 


j SELECT NEXT RAM ADDRESS 


1095 


031570 


004737 


016336 






JSR 


PC.CHKTSSR 


iUAIT FOR SSR TO SET 


1096 


031574 


116511 


000000 






MOVB 


TSBA(R5).CR1) {READ THE RAM DATA 


1097 


031600 


122124 








CMPB 


(Rl)*.CR4)t 


i COMPARE 10 EXPECTED 


1098 


031602 


001401 








BEQ 


20i 


{BRANCH IF OK 


1099 


031604 


005203 








INC 


R3 


{SET ERROR FLAG 


1100 


031606 


005202 




< 


20$: 


INC 


R2 


{ADDRESS OF NEXT RAM LOCATION 


1101 


031610 


020227 


000203 






CMP 


R2,*RMPKTBEG 


►2 jDONE 2 BYTES? 


1102 


031614 


002761 








BLT 


10$ 


jBR IF NO 


1103 


031616 


005703 








TST 


R3 


{WAS AN ERROR FOUND ? 


1104 


031620 


001402 








BEQ 


30$ 


{BRANCH IF NOT 


1105 


031622 


00024 1 








CLC 




-.CLEAR CARRY TO SHOW ERROR 


1106 


051624 


000401 








BR 


50$ 


{AND EXIT 


1107 


031626 


000261 






50$: 


SEC 




jSHOW GOOD COMPARE 


1108 


031630 


012737 


000002 


002302 ' 


30$: 


MOV 


A2.RAMSIZ 


{SETUP RAMSIZ 



N9 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB84 17:14 
TEST 3; SUBTEST 4? NXM TO SELECTED INVALID ADDRESSES 

RTS 



1109 


031636 


000207 




1110 








1111 








1112 








1113 








1114 








1115 








1116 


031640 






1117 


031640 






1118 


031644 


012701 


030260 


1119 


031650 


012721 


100004 


1120 


031654 


012721 


030270 


1121 


031660 


005021 




1122 


031662 


012721 


000010 


1123 


031666 


012721 


030302 


1124 


031672 


005021 




1125 


031674 


012721 


000016 


1126 


031700 


005021 




1127 


031702 


005011 




1128 


031704 


000207 




1129 








1130 








1131 








1132 








1133 








1134 








1135 








1136 








1137 








1138 








1139 


031706 






1140 


031706 






1141 


031712 


010401 




1142 


031714 


005737 


003134 


1143 


031720 


001404 




1144 


031722 


010300 




1145 


U31724 


004737 


017316 


1146 


031730 


010001 




114 7 


031732 


012700 


000017 


1148 


031/36 


052700 


100000 


1149 


031742 


010021 




1150 


031744 


005021 




1151 


031746 


000207 




U52 








1153 








1154 








1155 








1156 








1157 








1158 








1159 


051750 






1160 


0J1750 






1161 


031754 


012/00 


030270 


1162 


031760 


013701 


030324 


1163 


031764 


005737 


003134 


1164 


031 no 


001402 




1165 


0317 72 


013701 


03032b 



PC 



SEQ 117 



j RETURN 



ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 



T12SWRT1 




SAVREG 




MOV 


4T12PACKET.R1 


MOV 


4100004 ,(R1)* 


MOV 


4T12DATA,(R1)* 


CLR 


(Rl)» 


MOV 


48, ,(R1)» 


MOV 


4Tl2BFR,(Rl)f 


CLR 


CRD* 


MOV 


414, ,(R1)* 


CLR 


CRD* 


CLH 


CR1) 


RTS 


PC 



{SAVE THE REGISTERS 

{START OF THE PACKET 

i WRITE CHARACTERISTICS WITH ACK 

{ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{RETURN 



j ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 

R3 HIGH ORDER PACKET ADDRESS 

R4 LOW ORDER PACKET ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 



{SAVE THE REGISTERS 

{GET LOU ORDER ADDRESS 

{TESTING ABOVE 28K? 

j BR IF NO 

{GET HIGH ORDER ADDRESS 

{RETURN ADDRESS BIASED TO PAR6 IN RO 

{GET ADDRESS 

•GET STATUS COMMAND CODE NO IE 

;SET ACK 

{STORE GET STATUS IN PACKET 

{CLEAR UNUSED WORD 

{RETURN 



ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 



;SAVE R1-R5 LINT II NEXT RETURN 

{GET U2PACKET DATA POINTER 

{ASSUME NOT ABOVE 28K 

; fESTTNG ABOVE 2BK? 

:BR U NO 

{SET TEST ADDRESS ABOVE 28K 



T12SETGET: 




SAVREG 




MOV 


R4.R1 


TST 


KTENABLE 


BEQ 


10$ 


MOV 


R3.R0 


JSR 


PC.SETMAP 


MOV 


R0,R1 


10$ J MOV 


4P.GETSTATUS.R0 


BIS 


4P. ACK, RO 


MOV 


RC'll)* 


CLR 


(RU* 


RTS 


PC 



T12CHAR; 




SAVREG 




MOV 


4T120ATA.ro 


MQV 


U2L0ADD.R1 


TS* 


KTENABLE 


BEQ 


10$ 


MOV 


T12PAR6.R1 



TSV^ HARDWARE. 


TESTS 


TEST 5 t 


SUBTEST 


4» NXM 


1166 


031776 


012021 


1167 


032000 


012021 


1168 


032002 


012021 


1169 


032004 


012021 


11 ?0 


032006 


012021 


1171 


032010 


000207 


11V 






1173 


032012 
032012 






032012 


104401 



MACRO MU13 06 -FEB -84 17j 14 

TO SELECTED INVALID ADDRESSES 



lOfi 



ENDTST 



BIO 



5EQ 110 



MOV 


(R0)*,(R1)» 


iSTORt DATA 


WORD 


1 


MOV 


CR0)»,(R1)» 


iSTORE DATA 


WORD 


2 


MOV 


(R0)*,(R1)* 


jSTORE DATA 


WORD 


3 


MOV 


(RO)s(RU» 


jSTORE DATA 


WORD 


4 


MOV 


(R0)»»CR1)« 


jSTORE DATA 


WORD 


5 


RTS 


PC 


1 RE TURN 







L 10042 i 



TRAP 



CU.TS.T 



\m ^«m»s\ m& r^sieEB^iHWc^ABjiR^s 



cio 



SEQ 119 



1175 
11 76 
1177 
1178 
1179 
1180 
1181 
118,? 
1185 
1184 

118S 
1186 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 



1207 



1208 
1209 
1210 
1211 
1212 
1213 
1214 
1218 
1219 



1220 
1221 
1222 
1223 
1227 
1228 



032014 
032014 



032014 
032020 
032022 
032026 
032032 
032036 
032044 



032044 
032044 
032044 
032046 
032O46 
032052 
032054 
032060 
032062 
032066 
032072 
0320 76 
032102 
032104 
032106 
032106 
032110 
032112 
032114 
032116 
032116 
032122 
032126 
032150 
032132 
032132 
032134 
032136 
032140 



005737 
001402 
005237 
012700 
004737 
012737 



104402 

012700 
104441 
005737 
001402 
000137 
0O4737 
004 737 
004737 
103405 
010001 

104455 
000621 
003652 
012034 

012704 
004/37 
10340* 
010001 

104456 
00062.? 
005056 
012034 



.SBTTL TEST 4: RAM EXERCISER TEST 

I THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 
lLOCATIONS) SELECT COOES Or THE WRITE SUBSYSTEM MEMORY COMMAND 
j TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 



002214 

003400 
034453 
016510 
000005 002216 



101: 



T15L00P: 



SfiNTST 



TST 
BEO 
INC 
MOV 
JSR 
MOV 



TSTCNT 

lot 

SKIPT 

«TST15ID,R0 
PC.TSTSETUP 
05,L00PCNT 



T4 



, CHECK TOR RUN MODE 

j BR, IE NOT ONLY PROGRAM 

iSET SKIP SW 

jASCII MESSAGE TO IDENTIFY 

|D0 INITIAL TEST SETUP 

l PERFORM 5 ITERATIONS 



RUN 



TEST 



TEST 4 t SUBTEST 1 



THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO 
RAM MEMORY SINGLE WORD U BITS) MODE 



THE 



BGNSUB 



SETFRI OPRIOO 



000000 
003400 

032344 
034472 
034544 

015774 



,//////////// BEGIN SUBTEST //////////// 

T4.li 

TRAP CIBSUB 
jLOWER PRIORITY TO ALLOW INTERRUPTS 



10$: 



TST 


SKIPT 


BEQ 


101 


jMP 


50) 


JSR 


PC, T15REST 


JSR 


PC.T15RT2 


JSR 


PC.SOFINIT 


HCS 


201 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



053370 
010602 



20*; 



MOV *T15PACKET,R4 

JSR PC.WRTCHR 

DCS 231 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG » SF XMSG 



MOV 
TRAP 
jSHOULD WE SKIP THIS SUBTEST 
iBR, IF NOW SKIP REQUIRED 
iSKIP SUBTEST 
I SET COMMANO PACKET 
iSET UP OTHER COMMANO PACKET 
iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iCONTENTS OF TSSR REGISTER 
jFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
,WO«D 
.WORD 

i SUBROUTINE NEEDS PACKET ADDRESS 
l ISSUE WRITE CHARACTERISTICS 
jBR, ir COMMAND ISSUED OK 
iSAVE CONTENTS OF TSSR 
iWRXTE CHARACTERISTISC FAILED 

TRAP 
.WOPD 
.WORD 
,WURD 



*PRI00,R0 
C*SPRI 



C IE. RDF 

401 
>F IERR 
SFIMSG 



CIERHRD 
40/» 

WRTMSb 
SFIMSG 



\m -Anmmuh m^ muis o6febm im4 



DIG 



SEQ 120 



1229 052142 


012703 


000400 


1250 032146 


11273/ 


000001 034101 


1231 032154 


112737 


000002 034100 


1232 032162 






1233 032)62 


010337 


034102 


1234 032166 


012/04 


034070 


1235 032172 


110337 


034104 


1236 032176 


010465 


000000 


1237 032202 


004737 


016336 


1238 032206 


103407 




1239 032210 


010001 




1243 032212 






032212 


104456 




032214 


00O623 




032216 


034106 




C32220 


012046 




1244 032222 






032222 


104410 




032,-VM 


000122 




1245 032126 






032226 


104406 




1246 






124 7 






1248 032230 


005203 




1249 032232 


020327 


010000 


1250 032236 


001351 




1251 032240 


005002 




1252 032242 


005303 




121,3 032244 


110337 


034104 


1254 032250 


010337 


034102 


1255 032254 


112737 


000001 034100 


1256 032262 


010465 


000000 


1257 032266 


004737 


016336 


1258 032272 


103405 




1259 032274 


01OOO1 




1263 032276 






032276 


104455 




032300 


000624 




032302 


034106 




032304 


012046 




1264 032306 






032306 


104406 




1265 032310 


013701 


033432 


1266 032314 


010302 




1267 032316 


120102 




1268 032320 


001404 




1272 032322 






032322 


104456 




032324 


000625 




032326 


034 365 




032330 


015502 




1273 032332 






032332 


104406 




1274 032334 


005303 




1275 032336 


020327 


QQQ377 


1276 032342 


001340 




1277 032344 







23$; 



25$ j 



MOV 


0256. ( R3 


MOVB 


•1.T15BS1 


MOVB 


02.T15BSO 


MOV 


R3.T15S2 


MOV 


♦T15PK2.R4 


MOVB 


R3.T15S3 


MOV 


R4,TSDB(R5) 


JSR 


PCCHKTSSR 


BCS 


30$ 


MOV 


RO.Rl 


ERRHRD 


ERRN0.T15SSR.PKTSSR 



30$: 



40$ j 



ESCAPE 


SUB 


CKLOOP 




INC 


R3 


CMP 


R3, 010000 


BNE 


25$ 


CLR 


R2 


DEC 


R3 


MOVB 


R3.T15S3 


MOV 


R3.T15S2 


MOVB 


•1.T156S0 


MOV 


R4.TSDBCR5) 


JSR 


PCCHKTSSR 


BCS 


43$ 


MOV 


R0.R1 


ERRDF 


ERRN0.U5SSR, PKTSSR 



43$: 



CKLOOP 



MOV 


T15BFR*20,R1 


MOV 


R3.R2 


CMPB 


R1.R2 


BEQ 


45$ 


ERRHRD 


ERRN0.T15AM4.EXPBREC 



45*: 



50$: 



CKLOOP 

DEC 
CMP 
BNE 
CKLOOP 



R3 

R3.0255, 

401 



jSTARTING ADDRESS TOR RAM WRITE 
»SVE OF TRANSFER 
I WRITE RAM "COMMANO" 

I ADDRESS FOR RAM 

jWRITE SU8SYS MEM PACKET 

iDATA FOR WRITE (ADDRESS) 

j ISSUE COMMAND 

>WAIT FOR SSR 

j BR, IF NO ERROR 

»ERROR, SAVE TSSR 

jTSSR NOT CORRECT AFTER 



j DON'T CONTINUE IF 



j SCOPE LOOP 



WRITE 

TRAP 

.WORD 

.WORD 

.WORD 



SUB MEM 
C$ERHRD 
403 

T15SSR 
PKTSSR 



ERROR ON WRITE 

TRAP C$ESCAPE 
.WORD L 10050--, 



TRAP 



C$CLP1 



,NEXT ADDRESS 

jENO OF RAM MEMORY CHECK 

i LOOP TILL ALL RAM WRITTEN 

jCLEAR OUT R2 HIGH BITS 

iSET BACK TO 7777 

jGET DATA PATTERN BACK IN SHAPE 

jADORESS FOR RAM READ 

j RE AD RAM COMMANO 

jSENO OUT PACKET ADDRESS TO CONTR. 

I WAIT FOR READY, NON -AMBIGUOUS 

j BR. IF NO PROBLEM 

jSAVE TSSR 

j TSSR NOT CORRErT 



I SCOPE LOOP 

jGET RAM READ DATA 
j SET UP FOR COMPARE 
iCHECK WITH DATA WRITTEN 



TRAP 
.WOKD 
.WORD 
.WORD 

TRAP 



CtERDF 
404 
T15SSR 
PKTSSR 

C$CLP1 



jBR IF OK, DATA IN - DATA OUT 




iWRITTEN DATA NOT - TO READ 




TRAP 


C$ERHRD 


.WORD 


405 


.WORO 


T15AM4 


.WORD 


EXPBRFC 


1 SCOPE LOOP 




TRAP 


CSCLPl 


{DROP DATA COUNTER (PATTERN) 




l AT BOTTOM YET 




iBR, IF MORE TO CHECK 




1 SCOPE LOOP 





E10 



TSV5 - HARDWARE 


TESTS 


MACRO Mil 13 0< 


TEST 4: RAM EXERCISER 


TEST 


032344 


104406 




1278 032346 






032346 






032346 


104403 




1279 






1280 






1281 032350 






032350 






032350 


104402 




1282 






1283 






1284 






1285 






1286 






128? 






1288 






1289 






1290 






1291 032352 


004737 


034472 


1292 032356 


004737 


034544 


1293 032362 


004737 


015774 


1294 032366 


103405 




1298 032370 


010001 




1299 032372 






032372 


104455 




032374 


000626 




032376 


003652 




032400 


012034 




1300 032402 






1301 032402 


012704 


033370 


1302 032406 


004737 


010662 


1303 032412 


103405 




1307 032414 


010001 




1308 032416 






032416 


104456 




032420 


000627 




032422 


005056 




032424 


012034 




1309 032426 






1310 032426 


112737 


000001 034101 


1311 032434 


012704 


034070 


1312 032440 


012703 


000400 


1313 032444 


112737 


000002 034100 


1314 032452 


105037 


034104 


1315 032456 


010337 


034102 


1316 032462 


010465 


000000 


1317 032466 


004737 


016336 


1318 032472 


103405 




1319 032474 


010001 




1323 032476 






032476 


104456 




032500 


000630 




032502 


034106 




032504 


012046 




1324 032506 






032506 


104406 




1325 







FEB -84 17:14 



ENDSUB 



BGNSUB 



j TEST 4, SUBTEST 2 



SEQ 121 



TRAP C*CLP1 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10050: 

TRAP C$ESU6 



j//////////// BEGIN SUBTEST //////////// 

T4.2{ 

TRAP CSBSU8 



THIS SUBTEST WRITES RAM WITH ALL ZEROS 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



JSR 


PC.T15REST 


JSR 


PCT15RT2 


JSR 


PC.SOriNIT 


BCS 


20S 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$: 



MOV 


#T15PACKET,R4 


JSR 


PC.WRTCHR 


BCS 


25* 


MOV 


R0.R1 


ERRKRD 


ERRNO»WRTMSG,SFIMSG 



{RESTORE PACKET FOR WRITE CHARA 

iRESTORE PACKET FOR WRT SUB SYS MEM 

:D0 INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

jFATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 406 
.WORD SFIERR 
.WORD SFIMSG 

I SUBROUTINE Nt^JS PACKET ADDRESS 
jISSUE WRITE CHARACTERISTICS 
jBR, IF COMMAND ISSUED OK 
jSAVE CONTENVS OF TSSR 
jWRITE CHARACTERISTIC 



255: 



FAILED 




TRAP 


CiERHRD 


.WORD 


407 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



30$: 



MOVB 


01.T15BS1 


MOV 


*T15PK2,R4 


MOV 


0256., R3 


MOVB 


02.T15BS0 


CLRB 


T15S3 


MOV 


R3.T15S2 


MOV 


R4, TSDBCR5) 


JSR 


PC.CHKTSSP 


BCS 


33$ 


MOV 


RO.Rl 


ERRHRD 


ERRNO.USSSR.PKTSSR 



33$: 



CKLOOP 



jSET SIZE OF TRANSFER 1 BYTE 

iSET NEW PACKET ADDRESS 

i STARTING AODRESS IN RAM 

I WRITE RAM COMMAND 

iSET DATA TO 000 

lADORESS TO PACKET DATA AREA 

jSENO OUT PACKET ADDRESS 

iWAIT FOR SSR 

i BR. IF NO PROBLEM 

tSAVE TSSR 

j TSSR NOT CORRECT 

TRAP 
.WORD 
.WORD 
.UORD 



I SCOPE LOOP 



TRAP 



CSERHRD 

408 

T15SSR 

PKTSSR 

CSCLPi 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 4 j RAM EXERCISER TEST 



06-FEB-84 17 j 14 



FIO 



SEQ 122 



1326 






1327 032510 


005203 




1328 032512 


020327 


010000 


1529 032516 


001357 




1330 032520 


005303 




1331 032522 


005002 




1332 032524 


112737 


000001 034100 


1333 032532 


010337 


034102 


1334 032536 


010465 


000000 


1335 032542 


004737 


016336 


1336 032546 


103405 




1337 032550 


010001 




1341 032552 






032552 


104156 




032554 


000631 




032556 


034106 




032560 


012046 




1342 032562 






032562 


104406 




1343 032564 


013701 


033432 


1344 032570 


12010? 




1345 032572 


001404 




1349 032574 






032574 


104456 




032576 


00O632 




032600 


034263 




032602 


015502 




1350 032604 






032604 


104406 




1351 032606 


012702 


000377 


1352 032612 


112737 


000O02 034100 


1353 032620 


112737 


000377 034104 


1354 032626 


010465 


OOOOOO 


1*55 032632 


0O4737 


016336 


1356 032636 


103405 




1357 032640 


010001 




1361 032642 






032642 


104456 




032644 


000633 




032646 


034106 




032650 


012046 




1362 032652 






032652 


104406 




1363 032654 


112737 


000001 034100 


1364 032662 


010465 


OOOOOO 


1365 032666 


004737 


016336 


1366 0526 72 


103405 




1367 0326 74 


010001 




1371 032676 






032676 


104455 




032700 


000634 




032702 


034106 




032704 


012046 




137? 032706 


013701 


0334 32 


1373 032712 


120102 




1374 032714 


001404 




1376 032/16 







35$ 
40$ 



41$ 



42$: 



45$ j 



44$ j 



INC 

CMP 

BNE 

DEC 

CLR 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 



CKLOOP 



CKLOOP 

MOVB 

MOV 

JSR 

BCS 

MOV 

ERRDF 



R3 

R3, 010000 

30$ 

R3 

R2 

01.T15BS0 

R3.T15S2 

R4.TSDBCR5) 

PC.CHKTSSR 

41$ 

R0.R1 

ERRN0.T15SSR, PKTSSR 



MOV 


T15BFR*20,R1 


CMPB 


R1.R2 


BEQ 


42$ 


ERRHRD 


ERRN0.T15AM3.EXPBREC 



MOV 


0000377 ,R2 


MOVB 


02.T15BS0 


MOVB 


0000377, T15S3 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


43$ 


MOV 


R0.R1 


ERRHRD 


ERRN0.T15SSR, PKTSSR 



O1.T15BS0 

R4.TSDBCR5) 

PCCHKTSSR 

44$ 

R0.R1 

ERRN0,U5SSR, PKTSSR 



MOV 


T15BFR>20,R1 


CMPB 


R1.R2 


BEQ 


45$ 


ERRHRD 


ERRN0.T15AM2.LXPBREC 



jNEXT ADDRESS 

j END OF RAM MEMORY CHECK 

jBR. MORE RAM TO GO 

{SET BACK TO 7777 

j SET TO ALL ZEROS 

I READ RAM COMMAND 

lADDRESS TO BE READ TO PACKET DATA 

jSENO OUT PACKET ADDRESS 

,WAir FOR SSR TO SET 

tBR, IF ALL IS WELL 

{SAVE TSSR 

{TSSR NOT CORRECT 



{SCOPE LOOP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
409 
T15SSR 
PKTSSR 



C$CLP1 



{PICK UP READ DATA 
{BOTH SHOULD BE 00000000 BINARY 
iBR, IF DATA IS GOOD 
{CHARACTERISTICS DATA NOT CORRECT 



{SCOPE LOOPER 



TRAP 
.WORO 
.WORD 
.WORD 

TRAP 



C$ERHRD 
410 
T15AM3 
EXPBREC 

C$CLP1 



{SET ALL ONES WORD 

{WRITE RAM COMMANO 

jALL ONES PATTERN 

{PASS PACKET ADDRESS TO CONTR. 

{WAIT FOR SSR 

i BR. IF OK CNO ERROR) 

{SAVE TSSR 

j TSSR NOT CORRECT 





TRAP 


C$ERHRO 




.WORD 


411 




.WORD 


T15SSR 




.WORD 


PKTSSR 


{SCOPE LOOP 








TRAP 


C$CLP1 


{SET UP FOR RAM READ 






i ISSUE RAM READ 






,WAIT FOR SSR TO SET 






{BR, IF OK (NO ERROR) 







iSAVE TSSR 

>TSSR NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 
{PICK UP REC'D DATA 
{CHECK WITH DATA WRITTEN 
j BR IF OK, DATA IN • DATA OUT 
{WRITTEN DATA NOT - TO READ 



C$EROF 

T15SSR 
PKTSSR 
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TSV5 - HARDWARE 


TESTS 


MACRO Ml 113 0< 

TEST 


TEST 4i 


RAM EXERCISER 




032716 


104456 






032720 


000635 






032722 


034162 






032724 


015502 




1379 


032726 








032726 


104406 




1380 


032730 


005303 




1381 


032732 


020327 


000377 


1382 


032736 


001271 




1383 








1384 


032740 
032740 








032740 


104403 




1385 








1386 


032742 
032742 








032742 


104402 




1387 








1388 








1389 








1390 








1391 








1392 








1393 








1394 








1395 


032744 


005737 


003400 


1396 


032750 


001402 




1397 


032752 


000137 


033>£ '■ 


1398 


032756 


004737 


034472 


1399 


032762 


004737 


034544 


1400 


032766 


004737 


015774 


1401 


032772 


10**405 




1405 


032774 


10001 




1406 


032.776 








032776 


104.'! 55 






033000 


000636 






033002 


003652 






033004 


012034 




1407 


033006 






1408 


0330O6 


01,704 


033370 


1409 


033012 


004737 


010662 


1410 


033016 


103405 




1414 


033020 


010001 




1415 


033022 








033022 


104456 






033024 


000637 






033026 


005056 






033030 


012034 




1416 


033032 






1417 


033032 


112737 


000001 034101 


1418 


033040 


012704 


034070 


1419 


033044 


012703 


000400 


1420 


033050 


112737 


000002 034100 


1421 


033056 


112737 


000377 034104 


1422 


033064 


010337 


034102 


1423 


033070 


010465 


000000 


1424 


033074 


004737 


016336 



06-FEB-84 17; 14 



45$: CKLOOP 

DEC R3 

CMP R3.0255 

BNE 40$ 

ENDSUB 



BGNSUB 



;TEST 4, SUBTEST 3 



SEQ 123 












TRAP 


CIERHRO 






.WORD 


413 






.WORD 


T15AM2 






.WORD 


EXPBREC 


I SCOPE LOOP 












TRAP 


C$CLP1 


{DROP RAM ADDRESS 


POINTER 




;AT START YET 








jBR, IE MORE RAM 


TO 


CHECK 





|\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10051: 

TPAP C$ESUB 

{//////////// BEGIN SUBTEST //////////// 

T4.3: 

TRAP C$BSU8 



THIS SUBTEST WRITES RAM WITH 
THEN WALKS AN ALL ZEROS WORD 



10$ 



TST 


3KIPT 


BEQ 


10$ 


JMP 


50$ 


JSR 


PC.T15REST 


JSR 


PC.T15RT2 


JSR 


PC.SOFINIT 


BCS 


20$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



WRITE CHARA 
W9T SUB SYS MEM 



20$: 



MOV 


#T15PACKET,R4 


JSR 


PC.WRTCHR 


BCS 


25$ 


MOV 


R0.R1 


ERRHRD 


F.RRNO.WRTMSG, SFIMSG 



ALL ONES 

DOWN THROUGH MEMORY 

j CHECK RUN MODE 
{BR, IF NO SKIP 
{SKIP SUBTEST 
{RESTORE PACKET FOR 
{RESTORE PACKET FOR ... . ,__ 
{DO INITIALIZE ON CONTROLLER 
jBR IF INIT WAS OK 
{CONTENTS OF TSSR REGISTER 
{FATAL HRROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 414 
.WORD SFIERR 
.WORD SFIMSG 

{SUBROUTINE NEEDS PACKET AOORESS 
{ISSUE WRITE CHARACTERISTICS 
jBR, IF COMMANO ISSUED OK 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



25$: 



FAILED 




TRAP 


C$ERHRD 


.WORD 


415 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



30$: 



MOVB 


*1,T15BS1 


MOV 


4T15PK2.R4 


MOV 


0256. ,R3 


MOVB 


02.T15BS0 


MOVB 


0377.T15S3 


MOV 


R3.T1552 


MOV 


R4.TSDBCR5) 


JSR 


PCCHKTSSR 



{SET SIZF TO 1 BYTE 
{SET NEW PACKET ADDRESS 
{STARTING ADDRESS IN RAM 
{WRITE RAM COMMAND 
jSET DATA TO 377 
{ADDRESS TO PACKET DATA AREA 
{SEND OUT PACKET ADDRESS 
,WAIT FOR SSR 
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TSV5 - HARDWARE TESTS 
TEST 4: RAM EXERCISER 



MACRO Ml 113 
TEST 



1425 
1426 
1430 



1431 

1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1448 



1449 

1450 
1451 
1452 
1456 



1457 
1458 
1459 
1460 
1461 
1462 
1463 
1467 



1468 

1469 

14 70 
1471 
1472 

1473 
1477 



033100 
033102 
033104 
033104 
033106 
033110 
033112 
033114 
033114 



033116 
033120 
033124 
033126 
033130 
033154 
033142 
033146 
033152 
033156 
033160 
033162 
033162 
033164 
033166 
033170 
033172 
033172 
033174 
033200 
033202 
033204 
033204 
033206 
033210 
033212 
033214 
033220 
033226 
033234 
033240 
033244 
033246 
033250 
033250 
033252 
033254 
033256 
033260 
033260 
033262 
033270 
033274 
033300 
033302 
033304 



105405 
010001 

104456 
000640 
034106 
012046 

104406 



005203 
020327 
001357 
005303 
112702 
112737 
010337 
010465 
004737 
103405 
010001 

104456 
000641 
034106 
012046 

104406 
013701 
120102 
001404 

104456 
000642 
034263 
015502 
012702 
012737 
112737 
010465 
004737 
103405 
010001 

104456 
000643 
034106 
012046 

104406 
112737 
010465 
004737 
103405 
010001 



06 -FEB -84 17 {14 



BCS 
MOV 
ERRHRD 



33$ 



010000 



000377 



35$ 
40$ 



000001 034100 
034102 
000000 
016336 



41$: 



CKLOOP 



INC 

CMP 

BNE 

DEC 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 



033432 



000377 

000002 034100 

000377 034104 

000000 

016336 



42* 



43$ 



MOV 

MOV 

MOVB 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 



000001 
000000 
016336 



034100 



33$ 

R0.R1 

ERRN0.U5SSR. PKTSSR 



R3 

R3. 010000 

30$ 

R3 

*377, R2 

*1,T15BS0 

R3.T15S2 

R4.TSDBCR5) 

PC.CHKTSSR 

41$ 

R0.R1 

ERRN0,Ti5SSR t PKTSSR 



MOV 


T15BFR*20,R1 


CMPB 


R1.R2 


BEQ 


42$ 


ERRHRD 


ERRN0.T15AM3.EXPBREC 



*O00377.R2 

42.T15BS0 

$000377, T15S3 

R4.TSDBCR5) 

PC.CHKTSSR 

43$ 

R0.R1 

ERRN0.T15SSR. PKTSSR 



MOVB 


<H,U58S0 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


44$ 


MOV 


R0.R1 


ERRHRD 


ERRN0.T15SSR. PKTSSR 



SEQ 124 

jBR, IF NO PROBLEM 

j SAVE TSSR 

jTSSR NOT CORRECT 



j SCOPE LOOP 



TRAP 


C$ERHRD 


.WORD 


416 


.WORD 


T15SSR 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



j NEXT ADDRESS 

; END OF RAM MEMORY CHECK 

j BR, MORE RAM TO GO 

{SET BACK TO 7777 

j SET TO ALL ONES 

{READ RAM COMMANO 

j ADDRESS TO BE READ TO PACKET DATA 

j SEND OUT PACKET ADDRESS 

;WAIT FOR SSR TO SET 

{BR, IF ALL IS WELL 

j SAVE TSSR 

iTSSR NOT CORRECT 



j SCOPE LOOP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
417 
T15SSR 
PKTSSR 



C$CLP1 



jPICK UP READ DATA 
{BOTH SHOU.D BE llllllll BINARY 
{BR. IF DATA IS GOOD 
{CHARACTERISTICS DATA NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 

{SET ALL ONES WORD 

{WRITE RAM COMMAND 

{ALL ONES PATTERN 

{PASS PACKET ADDRESS TO CONTR. 

{WAIT FOR SSR 

{BR, IF OK CNO ERROR) 

{SA" C . TSSR 

jTSSn NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
418 

T15AM3 
EXPBREC 



{SCOPE LOOP 



READ 



TRAP 



C$ERHRD 

419 

T15SSR 

PKTSSR 

C$CLP1 



{SET UP FOR RAM 
{ISSUE RAM READ 
{WAIT FOR SSR TO SET 
jBR, IF OK CNO ERROR) 
{SAVE TSSR 
{TSSR NOT CORRECT 



110 



TSV5 - HARDWARE 


TESTS MACRO t 


TEST 4? 


RAM EXERCISER TEST 




033304 


104456 




033306 


000644 




035310 


034106 




033312 


012046 


1478 


033314 


013701 033432 


1479 


033320 


120102 


1480 


033322 


001404 


1484 


033324 






033324 


104456 




033326 


000645 




033330 


034162 




033332 


015502 


1485 


033334 






033334 


104406 


1486 


033336 


005303 


1487 


033340 


020327 000377 


1488 


033344 


001271 


1489 






1490 


033546 




1491 


033546 
055546 






053546 


104403 


1492 






1493 


033350 


004737 016456 


1494 


035354 


103002 


1495 


055556 


000137 032044 


1496 


033562 






055562 


104432 




055564 


001216 


1497 






1498 






1499 






1500 






1502 




033370 


1504 


055570 




1505 


053370 


100204 


1506 


033572 


033400 


1507 


053374 


oooooo 


1508 


033376 


000010 


1509 


033400 




1510 


035400 


033412 


1511 


055402 


oooooo 


1512 


035404 


000400 


1513 


033406 


oooooo OOOOOO 


1514 


035412 




1515 






1516 






1517 






1519 




034070 


1521 


034070 




1522 


034070 


100206 


1523 


034072 


034100 


1524 


034074 


OOOOOO 


1525 


034076 


000006 


1526 






1527 






1528 


034100 





06-FEB-84 17:14 



44$: 



45$ 



MOV T15BFR*20,R1 

CMPB R1.R2 

BEQ 451 

ERRHRO ERRNU , T 15AM2 , EXPBREC 



CKLOOP 



50$ 



DEC R3 

CMP R3.0255 

BNE 40$ 



ENDSU6 



63$; 



j ♦ 



JSR 


PC.TSTLOOP 


BCC 


63$ 


JMP 


T15L0OP 


EXIT 


TST 



{LOCAL STORAGE FOR THIS TEST 



,«<.»10 


>6177770 


U5PACKET: 




.WORD 


100204 


.WORD 


T15DATA 


.WORD 





.WORD 


8. 


U5DATA} 




.WORD 


T15BFR 


.WORD 





.WORD 


256. 


.WORD 


0.0 


T15BFRj .BLKW 


150. 



j WRITE SUBSYSTEM MEMORY COMMAND PACKET 

.■<.»10>£177770 

T15PK2: 



.WORD 


100206 


.WORD 


T15BF2 


.WORO 





.WORD 


6. 



SEQ 125 



TRAP C$ERHRD 
.WORD 420 
.WORD T15SSR 
.WORD PKTSSR 

■PICK UP REC'D DATA 

, CHECK WITH DATA WRITTEN 

I BR IF OK, DATA IN « DATA OUT 

{WRITTEN DATA NOT - TO READ 

TRAP C$ERHRD 
.WORD 421 
.WORD T15AM2 
.WORD EXPBREC 

j SCOPE LOOP 

TRAP C$CLP1 

{DROP RAM ADDRESS POINTER 

{AT START YET 

{BR, IF MORE RAM TO CHECK 



j\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L10052: 

TRAP 



C$ESU6 



{DO WE NEED TO ITERATE TEST ? 
{BRANCH IF NOT 
{EXECUTE AGAIN 
{ALL DONE THIS TEST 

TRAP 

.WORD 



C$EXIT 
L 10047 -. 



{COMMAND PACKET FCR TEST 

{WRITE CHARACTERISTICS COMMANO, WITH IE, 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE Of BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LF.NGTH OF MESSAGE BUFFER 

{MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMAND, IE AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

:SIZE OF DATA PACKET 



T15UF2: 



.EVEN 



J10 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 4 j RAM EXERCISER TEST 



1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 



034100 
034101 
034102 
034104 



034106 
034162 
034263 
034365 
034453 



034472 
034472 
034476 
034502 
034506 
034512 
034514 
034520 
034524 
034526 
034532 
034534 
034536 
054542 



034544 
034544 
034550 
034554 
034560 
034564 
034566 
034572 
034574 
034576 
034600 
034602 
034602 
034602 



000 

000 

000000 

000000 



127 
127 
127 
127 
122 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



104401 



06 -FEB -84 17; 14 



T15BS0: .BYTE 

T15BS1: .BYTE 

T15S2: .WORD 

T15S3: .WORD 



{ * 



SEQ 126 



iBSELO AREA 
jBSELl AREA 
jSEL 2 AREA 
{DATA AREA 



{LOCAL TEXT MESSAGES FOR TEST 



122 
122 
122 
122 
101 



111 
111 
111 
111 
115 



T15SSR 
T15AM2 
T15AM3 
T15AM4 
TST15ID: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



'WRITE SUBSYSTEM MEMORY 

'WRITE SUBSYSTEM MEMORY 

•WRITE SUBSYSTEM MEMORY 

'WRITE SUBSYSTEM MEMORY 

.ASCIZ 'RAM Exerciser' 



Command Not Accepted' 

COMMANO Fa; led On All Ones Word Read Bock' 
COMMAND Foiled On All Zeros Word Read Bock* 
COMMAND Failed On Address Test' 



033370 
100204 
033400 

000010 
033412 

000400 



033412 



jROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
jWRITE SUBSYSTEM MEMORY COMMAND 



{SAVE THE REGISTERS 

{START CF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK. IE 

{ADDRESS OF CHARAISUCr, DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 



034070 
100206 
034100 

000006 



T15REST: 




SAVREG 




MOV 


*T15PACKET,R1 


MOV 


0100204, CRD* 


MOV 


0T15DATA.CRD* 


CLR 


CRD* 


MOV 


08. .CRD* 


MOV 


0T15BFR.CRD* 


CLR 


(Rl)* 


MOV 


0256. ,(R1)» 


CLR 


CRD* 


CLR 


CRD 


CLR 


T15BFR 


RTS 


PC 


T15RT2: 




SAVREG 




MOV 


0T15PK2.R1 


MOV 


0100206. CRD* 


MOV 


0T15BF2.CRD* 


CLR 


CRD* 


MOV 


06, ,CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


ENDTST 





{LENGTH OF MESSAGE BUFFER 



{CLEAR 1ST LOC 
{RETURN 



IN MESSAGE BUFFER 



{SAVE THE REGISTERS 

{START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH AO<» 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 



IE 



{RETURN 



L 1004 7$ 



TRAP 



C4ETST 



K10 
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TEST 5; EXTENDED FEATURES SWITCH AND TIMERS 



MACRO M1113 06 -FEB 84 17:14 

A. 6 



SEQ 127 



1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 

1606 
160/ 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 



034604 

034604 

034604 012700 036662 

034610 004737 016510 

034614 012737 000012 002216 

034622 



.?3TTl TEST 5; EXTENDED FEATURES SWITCH AND TIMERS A, 8 



TEST DESCRIPTION: 

This test verifies the Invert Extended Features function 
can logically Invert the Extended features switch and 
that the internal timers A and B operate correctly. 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Do Subtest 1 - Verify 
Do Subtest 2 - Verify 
END 



Extended Features Switch 
Timers A,B 



T16L00P; 



BGNTS1 

MOV 
JSR 
MOV 



0TST16ID.R0 
PCTSTSETUP 
010., LOOPCNT 



T5r: 

j ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
{PERFORM 1.0 ITERATIONS 



TEST 



.SBTTL TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 



5: SUBTEST 



SUGTEST DESCRIPTION: 

This subtest verifies that the Invert Sense of Extended features 
Switch function (Write Subsystem Memory, Write Misc command) 
operates properly. 

Firat *h* state of the Extended Features switch is read in the 
me see.,* packet supplied by the write characteristics command. 
Then, the sense of the switch is logically inverted. 
A Write characteristics command Is executed and it is verified 
that the Extended status register (XST4) is returned when 
in Extended mode, and not returned if not In extended n>ode. 
The sub tent also verifies that specifying a Message Buffer 
address with any of bits 21-19 ,set will cause the command to 
be rejected. 

TEST STEPS; 



BEGIN 



Write to TSSR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

IF Extended Features Hardware Switch CLEAR 

THEN 

C* Verify Extended Featureu switch can be Inverted to SET *) 
Do Write Subsystem Write Miscellaneous to SET Extended Features 
DO a WRITE CHARACTERISTICS with an extended characteristic word 
Compare the controller ram to the extended characteristic word 
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TSV5 - HARDWARE TESTS MACRO M1113 06-FEB 84 17; 14 
TEST 5; SUBTEST lj VERIFY EXTENDED FEATURES TEST 



SEQ 128 



1643 








1644 








1645 








1646 








164 7 








1648 








1649 








1650 








1651 








1652 








1653 








1654 








1655 








1656 








1657 








1658 








1659 


054622 
054622 








034622 


1044C2 




1660 








1661 








1662 


034624 






1663 








1664 


034624 


004737 


015774 


1665 


034650 


103405 




1666 


034652 


010001 




1667 


034654 








034634 


104455 






034656 


000764 






054640 


003652 






034642 


012034 




1668 








1669 


034644 


004737 


040050 


1670 


034650 


005057 


002222 


1671 


014654 


012704 


040210 


1672 


034660 


004737 


010662 


1673 


034664 






1674 


034 700 


103407 




1675 


034 702 


010001 




1676 


034704 






1677 


034 704 








034704 


104455 






034706 


000765 






054710 


056752 






034/12 


012046 




1678 


034 714 


005257 


002222 


1679 


054 720 








034720 


104406 




1680 








1681 








1682 








1683 








1684 


034 722 


012701 


040252 


1685 


034726 


052761 


000200 000012 


1686 


034 754 


001402 




1687 


034/56 


000157 


055506 


1688 


034742 


012703 


002764 



i 



END 



5$: 



10$: 



12$: 



15$: 



If 
If 
ELSE 
C* 
Do 
Do 
If 



Data word in controller ram NOT- to 
Message Buffer Data Length NOT- 12, 



word sent T ^en Print Error 
Then P** mt Error 



Verify Extended Features switch can be Inverted to CLEAR +) 
Write Subsystem Write Miscellaneous to CLEAR Extended Feature j. 
a WRITE CHARACTERISTICS without an extended characteristic word 
Message Buffer Data Length NOT- 10. Then Print Error 
END-IF 

(* Verify Function Reject when Message Buffer 21-19 arc non-zero *) 
Write to TSSR register to soft initialize the controller 
REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM TO 7 
DO a WRITE CHARACTERISTICS with a message address btt<21:19> non-zero 
If TSSR termination code NOT- Function Reject Then Print Error 
END-REPEAT 



BGNSUB 



j //////////// BEGIN SUBTEST ////////// 

T5.lt 

TRAP C$BSU8 



Write to TSSR register to soft 

JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SF IMSG 



the controller 

TSSR TO SOFT INITIALIZE 



Do WRITE CHARACTERISTICS 

JSR PC.T16REST 

CLR FATFLG 

MOV 0T16PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO . T16SSR , PKTSSR 



in 1 1 ial ize 

{WRITE TO 

jBR IF SOFT INIT OKAY 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL DURING INIT 

TRAP C$ERDF 
. WORD 500 
.WORD SFIERR 
.WORD SFIMSG 
to check for Er, tended Features Switch 

{RESTORE PACKET DEFAULTS 

j CLEAR FATAL ERROR FLAG 

{GET THE ADDRESS OF COMMAND PACKET 

iDO WRITE CHARACTERISTICS COMMAND 

;SQDF0RCE ERROR IF FORCER -1 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
WORD 
.WORD 
■ WORD 



C$ERDF 
501 

T16SSR 
PKTSSR 



INC 
CKLOOP 



FATFLG 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, If FLAG 



SET 
TRAP 



C$CLPl 



20$: 



If Extended Features Hardware 
(♦ Verify Extended Features 
REPEAT FOR TEST PATTERNS IN 

MOV «T16BFR,R1 

BIT *X2.EXTF,XST2(R1) 

BEQ 20$ 

JMP 200$ 

MOV 0TSTBUO1O, ,R5 



Swi ten Clear then; 

switch can be Inverted to SET O 

TSTBLK TABLE 

{MESSAGE BUFFER ADDRESS 

{EXTENDED FEATURES SWITCH CLEAR? 

jBR IF YES 

'{START OF TEST DATA 
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TSV5 - HARDWARE TESTS 
TEST 5; SUBTEST 1$ 



MACRO M1113 06-FEB-64 
VERIFY EXTENDED FEATURES TE 



7:14 



SEQ 129 



1689 






1690 






1691 034746 


004737 


040170 


1692 034752 


012704 


040260 


1693 034756 


010465 


000000 


1694 034762 


004737 


016336 


1695 034766 






1696 035002 


103407 




1697 035004 


010001 




1698 035006 






1699 035006 






035006 


104455 




C35010 


000766 




035012 


036767 




035014 


012046 




1700 035016 


005237 


002222 


1701 035022 






035022 


104406 




1702 






1703 






1704 035024 


012737 


125252 002312 


1705 035032 


012704 


040210 


1706 035036 


012764 


000020 000006 


1707 035044 


013737 


002312 040230 


1708 035052 


004737 


010662 


1709 035056 






1710 035072 


103407 




1711 035074 


010001 




1712 035076 






1713 035076 






035076 


104455 




035100 


000767 




035102 


036732 




035104 


012046 




1714 035106 


005237 


002222 


1715 035112 






035112 


104406 




1716 






1/17 035114 


016501 


000000 


1718 035120 


012702 


040232 


1719 035124 


062702 


000020 


1720 035130 






1/21 035140 


020102 




1722 035142 


001404 




1723 035144 






1724 035144 






035144 


1G4456 




035146 


000770 




035150 


037100 




035152 


015474 




1725 035154 






035154 


104406 




1726 






1727 






1728 035156 


012704 


040220 


1729 035162 


004 737 


011224 


1730 035166 







32$: 



40$: 



42$: 



50$: 
1 

62$: 

72$: 

80$: 

j 



Do Write Subsystem Write Miscellaneous to SET Extended Features. 



JSR PC.T16SEXT 

MOV 0T16PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 32$ 

BCS 40$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T162SSR , PKTSSR 



I SETUP PACKET FOR WRITE MISC INVERT 
{GET WRITE SUBSYSTEM COMMAND PACKET 
l SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{QSOFORCE ERROR IF FORCER- 1 
{BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



l DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



INC 


FATFLG 


CKLOOP 




DO 


WRITE CHARACTERISTICS 


MOV 


$125252, DATA 


MOV 


0T16PACKET.R4 


MOV 


*16.,PKBCNT(R4) 


MOV 


DATA,T16DATA*10 


JSR 


PCWRTCHR 


FORCERROR 42$ 


BCS 


50$ 


MOV 


R0.R1 


NEXT.ERRNO 



j SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
502 

T162SSR 
PKTSSR 



C$CLP1 



ERRDF ERRNO, T16SSR, PKTSSR 



with an extended characteristic word 
j SETUP TEST DATA FOR EXTENDED WORD 
j GET THE ADDRESS OF COMMAND PACKET 
iZTORc MESSAGE PACKET SIZE 
;SfOK: TEST DATA IN EXTENDED WORD 
:D0 WRl r E CHARACTERISTICS COMMANO 

.30DF0RCE ERROR IF FORCER-1 
j BR IF CA.'PY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



If the TSDA Address 
MOV TSBA(R5),R1 
MOV 0T16BFR,R2 
ADD 016., R2 
FORCERROR 72$,N0TSSR 
CMP R1.R2 
BEQ 80$ 
NEXT.ERRNO 
ERRHRD ERRNO , T16TSBA , EXPREC 



;SET FATAL ERROR F 
{LOOP ON ERROR, IF 

Register NOT- Expected Then 
{GET TSBA REGISTER 
{START OF THE DATA 
jEXPFCTED CONTENTS 

iSQOFQRCE 
{COMPARE EXPECTED 
{ERROR IF NOT EQUAL 

{PRINT THE ERROR 6 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


503 


.WORD 


T16SSR 


.WORD 

i dr. 


PKTSSR 


UMu 

FLAG SET 




TRAP 


C$CLP1 


\ Print Error 




! CONTENTS 




1 BUFFER 




1 OF TSBA 




ERROR IF F0RCER«1 


TO RECEIVED 
iL 




; EXPD/RECV 




TRAP 


CJERHRD 


.WORD 


504 


.WORD 


T16TSBA 


.WORD 


EXPRFC 



CKLOOP 

Compare the controller ram 
If Data word in controller 

MOV *U6DATA,R4 

JSR °C,CKRAM2 

FORCERRUR 92$ 



{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

to the extended characteristic word 
ram NOT- to word sent Then Print Error 
{GET CHARACTERISTIC DATA ADDRESS 
{DOES RAM DATA EQUAL DATA SENT? 

{SSOFORCc ERROR IF FORCER* 1 
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TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17; 14 
TEST 5: SUBTEST L: VERIFY EXTENDED FEATURES TEST 



1731 


035202 


103404 




1732 


035*204 






1733 


035204 








035204 


104456 






035206 


000771 






035210 


004745 






035212 


015510 




1734 


035214 








035214 


104406 




1735 








1736 


035216 


012702 


040232 


1737 


035222 


016201 


000002 


1738 


035226 


012702 


000014 


1739 


035232 






1740 


035242 


020102 




1741 


035244 


001404 




174? 


035246 






1743 


035246 








035246 


104456 






035250 


000772 






035252 


037202 






035254 


015474 




1744 


035256 








035256 


104406 




1745 








1746 


035260 


004737 


015774 


1747 


035264 


103405 




1748 


035266 


010001 




1749 


035270 








035270 


104455 






0352/2 


0007 72 






035274 


003652 






035276 


012034 




1750 


035300 








035300 


104406 




1751 


035302 


000137 


03!i466 


1752 








1753 








1754 


035306 






1755 








1756 


035306 


OOT737 


040170 


1757 


035312 


012704 


040260 


1758 


035316 


010465 


000000 


1759 


035322 


004 737 


016336 


1760 


035326 






1761 


035342 


1034C7 




1762 


035344 


010001 




1763 


035346 






1764 


035346 








035346 


104455 






035350 


0007 73 






035352 


036 767 






035354 


012046 




1765 


035356 


005237 


002222 


1766 


03536? 
035362 


104406 





QCS 100$ 
NEXT. ERRNO 
92$ ; ERRHRD ERRNO.PKTRAM.RAMERR 



100$; CKLOOP 

j If Mcs9oQ« Buffer Data Length 

MOV 4T16BFR,R2 

MOV 2CR2),R1 

MOV 412.. R2 

FORCERROR 112$,N0TSSR 

CMP R1.R2 

BEQ 120$ 

NEXT, ERRNO 
112$: ERRHRD ERRNO, T16LEN.EXPREC 



120$; CKLOOP 



JSR PC.SOFINIT 

BCS 125$ 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SFIMSG 



125$; CKLOOP 

JHP 300$ 



C$ERHRD 
505 

PKTRAM 
RAMERR 

C$CLP1 



SEQ 130 



jBR IF YES 

{REPORT THE RAM ERROR(S) 

TRAP 

.WORD 

.WORD 

. WORD 
jLOOP ON ERROR, IF FLAG SET 

VRA 3 

NOT- 12. Then Print Error 
{GET MESSAGE BUFFER ADDRESS 
jGET RECV DATA FIELD LENGTH 
jGET EXPD DATA FIELD LENGTH 

tSQOFORCE ERROR IF FORCER -1 
{COMPARE EXPECTED TO RECEIVED 
lERROR IF NOT EQUAL 

j PRINT THE ERROR 6 SXPD/RECV 

TRAP C$ERHRD 

.WORD 506 

.WORD T16LEN 

.WORD EXPREC 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

{WRITE TO TSSR TO SO.-T INITIALIZE 
{BR IF SOFT IN IT OKAY 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP 

.WORD 

.WORD 

.WORD 
{LOOP IF SELECTED 

TRAP 



C>ERDF 
506 

SFIERR 
SFIMSG 



C$CLP1 



200$: 



C* Verify Extended Features switch can be Inverted to CLEAR *) 



232$: 



Do Write Subsystem Wr 
JSR PC.U6SEXT 

MOV 0T16PK2.R4 

MOV R4.TS0BCR5) 

JSR PCCHKTSSR 

FORCERROR 252$ 

BCS 240$ 

MOV R0.R1 

NEXT, ERRNO 
ERRDF ERRNO, T162SSR 



I te Miscellaneous to CLEAR Extended Features. 
»SETUP PACKET FOR WRITE MISC INVERT 
{GET URITE S16SYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

;oWOKORCE ERROR IF FORCER -1 
;BR IF CARR> SET (GOOO RETURN) 
{SAVE CONTENTS OF TSSR 



240$: 



INC 
CklOOP 



FATFIG 



.PKTSSR {DEVICE FATAL SSR FAILED TO SET 

TRAP 

.WORD 
.WORD 
.WORD 



iSET FATAL ERROR FLAG 
;LuOP ON ERROR. IF FLAG 



St" T 
TRAP 



C$ERDF 

50? 

T lt>.?S"jR 

PKTSSR 



CSCIP1 



1/6 



B 1 1 



TSV5 • HARDWARE 


TESTS 


MACRO Ml 115 0< 


TEST 5: SUBTEST l\ VERIFY EXTENDED FE/ 


1/68 






1769 035564 


012704 


040210 


1770 035370 


012764 


000016 000006 


1771 035376 


004737 


010662 


17 72 055402 






1/73 035416 


103407 




1 /74 035420 


010001 




1//5 05542; j 






1776 035422 






035422 


104455 




035424 


000 7 74 




035426 


036/52 




035430 


012046 




17 77 035432 


005237 


002222 


1778 035436 






0354 36 


104406 




17 79 






1780 035440 


015701 


040254 


1781 035444 


012702 


000012 


1782 035450 


020102 




1/83 035452 


001404 




1784 035454 






1785 035454 






035454 


104456 




035456 


000775 




035460 


05/20? 




035462 


015474 




1 7»6 035464 






035464 


104406 




178/ 






1788 






1759 






1/90 






1791 035466 






1 792 






1795 035466 


012737 


000001 002312 


1794 






1795 0554 74 






1/96 0354 74 


012704 


040210 


179 7 035500 


012764 


000016 000006 


1/98 035506 


013700 


002512 


1799 


000005 




1800 






1801 






1802 035520 


010037 


040222 


1803 035524 


010465 


000000 


1804 035530 


004737 


016250 


1805 035554 






1806 035550 


105407 




180 7 035552 


01OO01 




18C8 055554 






1809 035554 






035554 


104455 




055556 


000 7 76 




35560 


056752 




035562 


012046 




1810 055564 


005257 


Q022A* 



06 FEB 84 17 j 14 

WES TEST 



l 



2421: 



250 ti 

l 



262$ i 



t 

3001: 
320$: 
525$: 



34«i I j 



00 a WRITE CHARACTERISTICS 
MOV 9T16PACKET,R4 
MOV #14. ,PKBCNT(R4) 
JSR PC.WRTCHR 
FORCERROR 242$ 
BCS 250$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRN0,T16SSR,PKTSSR 



SEQ 131 



without an axtandad chjracttr ! at ic *ord 
iGET THE ADDRESS OF COMMAND PACKET 
, STORE MESSAGE PACKET SIZE 
|D0 WRITE CHARACTERISTICS COMMANO 

iMDFORCE ERROR IF FORCER-1 
jBR IF CARRY SET CGOOO RETURN) 
iSAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



jSFT FATAL ERROR FLAG 
I LOOP ON ERROR, IF Fu AG 



If M^taaoa Buffer Data L#n©th 
MOV T16BFR»2,R1 

MOV #10 4 ,R2 

CMP R1.R2 

BEQ 270$ 

NEXT.ERRNO 
ERRHRD ERRNO , T 16LEN , E XPREC 



NOT* 10. Than Print 
iGET RECV DATA FIELD 
iGET EXPO DATA FIELD 
, COMPARE EXPECTED TO 

jERROR IF NOT EQUAL 



SET 

TRAP 
Error 

LENGTH 
LENGTH 
RECEIVED 



CIERDF 
508 
T16S5R 
PKTSSR 



C$CLP1 



270$ j CKLOOP 



iPRINT THE ERROR L 



I LOOP ON ERROR, IF FLAG 



EXPO/RECV 
TRAP 
.WORD 
.WORD 
.WORD 
SET 
TRAP 



C$ERHRD 
509 
T16LEN 
EXPREC 

CICI.P1 



(♦ Verify Function Rajact whfn Masaacja Buffer 21 19 «r« non /«ro ♦) 
Writ* to TSSR ragiatar to »oft Initial!/* tha controller 

REPEAT FOR MESSAGE BUFFER ADORESS b'ta «21:1*>» FROM TO 7 

MOV tl.DATA iSTART AT PI TS<21 : 19» -001 

DO a WRITE CHARACTERISTICS with a maasaga a<4oV«*« bit<21:19» non ;tro 

iGET THE. AOORESS OF COrtiANO PACKET 
iSTORE MESSAGE PACKET SIZE 
iGET TEST DATA 

jSHIFT INTO BITS 21:19 

iSTORE BUFFER AOORESS BITS 21:19 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR 

iMOFORCE ERROR IF FORCER -I 
iBR IF CARRt **T (GOOO RETURN^ 
iSAVf CONTENTS 0* TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C$tRC>F 

.WORD MO 

.WORD Tit.ssP 

.WORD PKTSSR 
INC FATFUi i St T FATAL ERROR t'UAU 



MOV 


•T16PACKET ,R4 


MOV 


#14. ,PKBCNT(R4) 


MOV 


DATA,RO 


,repv 


5 


ASL 


RO 


.ENOR 




MOV 


R0,T16DATA»2 


MOV 


R4, TSOBCR^I 


JSR 


PC.WAITF 


FORCERROR 542$ 


BCS 


550$ 


MOV 


RO.Rl 


NEXT.I 


£RRNO 


ERRDF 


ERRNO, T16SSR*PKTSSR 



\m -^mwERiPFtBTgwa rthm 6 ur AA 



c 1 1 



SEQ 132 



1811 035570 






035570 


104406 




181c 1 






1613 






1814 035572 


016501 


000002 


1815 035576 


010102 




1816 035600 


042702 


000016 


1817 035604 


052702 


000006 


1818 0356X0 






1819 035620 


020102 




1820 035622 


001404 




1821 035624 






1822 035624 






035624 


104456 




035626 


OO0777 




035630 


037514 




035652 


012046 




1823 035654 






035654 


104406 




1824 055656 






1825 035646 


005257 


002312 


1826 035652 


023 727 


002312 


1827 035660 


101OO2 




1828 035662 


000137 


0354 74 


182^) 






1830 035666 






1831 035666 






035666 






035666 


104403 




1832 






1833 0356 70 


005757 


002222 


1834 035674 


001402 




1835 035676 


004737 


017202 


1836 035702 






1837 






1838 






1839 






1840 






1841 






18<? 






184? 






1844 






1845 






1846 






184 7 






184P 






1849 






lflSO 






1851 






185? 






1853 






1854 






18V. 






i q S6 






185/ 






1858 






ltt59 







3501} CKLOOP 



352$: 



If TSSR termination cod* NOT- 

MOV 

MOV 

BIC 

BIS 

FORCERROR 

CMP R1.R2 

BEQ 3601 

NEXT.ERRNO 

ERRHRD ERRNO , T 16RE J , PKTSSR 



term! not ion 

TSSR(R5),R1 

R1.R2 

♦TERCLS.R2 

#T5REJ,R2 

552$»N0T55R 



I LOOP ON ERROR, IF FLAG SET 

TRAP CfCLPl 

Function Reject Then Print Error 
iGET RECV TSSR 
,COPY RECV TSSR 
i CLEAR TC<2iO> EXPD 
jSET EXPO TC<2sO>- FUNCTION REJECT 

lOSOFORCE ERROR IF FORCER-1 
iF.XPD EQUAL RECV? 
I BR IF YES 



jDEVICE FATAL SSR 



5601; CKLOOP 



FAILED TO SET 




TRAP 


CIERHRD 


.WORD 


511 


.WORD 


T16REJ 


.WORD 


PKTSSR 


FLAG SET 




TRAP 


CJCLPl 



000007 



370lj 



FORCEXIT 
INC DATA 
CMP DATA,a7 
BHI 3701 
JMP 525$ 
END-REPEAT 

ENOSUB 



370$ 



460$ i 



TST 


FATFLG 


BEQ 


460$ 


JSR 


PC.CKDROP 



I LOOP ON ERROR, IF 



jGET NEXT TSf PATTERN 

jDONE ALL DATA? 

iBR IF YES 

jDO ANOTHER TEST PATTERN 



,///////>//// END SUBTEST ////////// 

L 10054 j 

TRAP C$ESUB 

I ANT FATAL ERRORS ? 

, BRANCH IF NOT 

j TRY TO DROP THE UNIT 



.SBTTL TEST 5: SUBTEST 2j VERIFY TIMERS A,B 

TEST 5: SUBTEST 2: 

SUBTEST DESCRIPTION: 

This subtest verifies that timers A,B can be reset 
end that Timer A is twice the frequency of Tim#r B. 
Timer A has e period of 25 microseconds end Timer B 
has a period of 50 microseconds. The timers are 
entered at 1* 28, 53, and 78 micoseconds* 

TEST STEPS: 



Write to 
Do WRITE 



TSSR register 



CHAR ACT 



t* 



la 



r -TIC c - 



to spft initialise the controller 
S to setup a Message Buffer 



\ffl -^m^ivhnP^m^B 06 ^^ 



1)11 



17 1 14 



SEQ 153 



1860 








1861 








186c? 








1863 








1864 








1865 








1866 








1867 








1868 








1869 








1870 








1871 








1872 








1873 








1874 








1875 








1876 


035702 
035702 








035702 


104402 




1877 








1878 


035704 






1879 


035704 


004737 


015774 


1880 


035710 


105405 




1881 


035712 


010001 




1882 


035714 








035714 


104455 






035716 


000777 






035720 


003652 






035722 


012034 




1883 








1864 


035724 


004757 


040050 


1885 


035730 


005057 


002222 


1886 


035754 


012704 


040210 


1887 


035740 


012764 


000010 000006 


1888 


035746 


004757 


010662 


1889 


035752 






1890 


035766 


103407 




1891 


035770 


010OO1 




1892 


035772 






1893 


0357 72 








035772 


104455 






035774 


001000 






035776 


036732 






036000 


012046 




1894 


036002 


005257 


002222 


1895 


0360O6 








036006 


104406 




1896 








1897 








1898 








1899 


036010 


012700 


000001 


1900 


056014 


013701 


036652 


1901 


036020 


004/57 


040142 


1902 


036024 


012704 


040260 


1903 


036030 


010465 


000000 


1904 


036034 


004 757 


016336 


1905 


036040 







J 
5$} 



10*: 



12*: 



15$: 



(> 
Do 
Do 
If 
If 
C* 
Do 
If 
If 
Do 
If 
If 
Do 
If 
If 



V* 

a 
a 

Ti 
Ti 
Ve 

a 

Ti 

Ti 

a 

t; 
Ti 

a 

Ti 

Ti 



ri fy 

Wri U 
Writ* 
m*r A 
m*r B 
r i fy 
Writ* 
m*r A 
m*r B 
Writ* 
m*r A 
m*r B 
Writ* 
m*r A 
m*r B 



TIm*r* A t B aft*r RESET TIMER with microsecond delay 

Control RESET TIMER with 1 microsecond delay 

Subsystem READ STATUS 

NOT- Th*n Print Error 

NOT- Th*n Print Error 
Timer* A f B *ft*r RESET TIMER with 28 microsecond delay 

Control RESET TIMER with 28 microsecond delay 

NOT- 1 Then Print Error 

NOT- 1 Then Print Error 

Control RESET TIMER with 

NOT- Then Print Error 

NOT- 1 Then Print Error 

Control RESET TIMER with 

NOT- 1 Then Print Error 

NOT- Then Print Error 



+ ) 



♦) 



53 microsecond delay 



78 microsecond delay 



BGNSUB 



,//////////// BEGIN SUBTEST ////////// 

T5.2: 

TRAP C$BSU6 
Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 101 

MOV R0.R1 

ERRDF ERRNO, SFIERR , SFIMSG 



Do WRITE CHARACTERISTICS to 

JSR PC.T16REST 

CLR FATFLG 

MOV *T16PACKET,R4 

MOV *fl.,PKBCNT(R4) 

JSR PC.WRTCMR 

FURCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, U6SSR.PKTSSR 



INC FATFLG 

CKLOOP 



iWRITE TO TSSR TO SOFT INITIALIZE 

}BR IF SOFT INIT OKAY 

i SAVE C0NTENT5 Of TSSR 

jDEVICE FATAL DURING INIT 

TRAP C$ERDF 

.WORD 511 
.WORD SFIERR 
.WORD SFIMSG 
setup a Message Buffer 

jRESTORE PACKET DEFAULTS 

j CLEAR FATAL ERROR FLAG 

jGET THE ADDRESS Of COMMAND PACKET 

iMESSAGE PACKET SI2E NO EXTENO 

tDO WRITE CHARACTERISTICS COMMANO 

iMDFORCE ERROR IF FORCER-1 

iBR IF CARRt SET (GOOO RETURN) 

j SAVE CONTENTS Of TSSR 



j DEVICE FATAL SSR 



FAILED TO SET 
TRAP 

.WORD 
.WORD 
.WORD 



C$ERDF 
512 

T16SSR 
PKTSSR 



l SET FATAL ERROR FLAG 
l LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$CLP1 



(♦ Verify Timers A,B after RESET TIMER with 1 microsecond delay O 



Do a 

MOV 
MOV 
JSR 



Writ* Control 
eMS.RSD.RO 
T16D01.R1 
PC.T16WMISC 
MOV 0T16PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCF.RROR 32$ 



RESET TIMER with 1 microsecond delay 
iRESET TIMER COMMANO 
li MICROSECONO DELAY 
» SETUP T16PK2 COMMANO PACKET 
iGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

18S0F0RCE ERROR IF FORCER »1 



Ell 



TSV5 - HARDWARE TESTS MACRO Mil 13 06 -FEB -84 17:14 
TEST 5: SUBTEST 2; VERIFY TIMERS A,B 



SEQ 134 



1906 036054 


103407 






BCS 40$ 


,BR IF CARRY SET CGOOD RETURN) 




1907 036056 


010001 






MOV R0.R1 


j SAVE CONTENTS OF TSSR 




1908 036060 








NEXT.ERRNO 






1909 036060 






32$: 


ERRDF ERRNO, U62SSR .PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 




036060 


104455 








TRAP 


C$ERDF 


036062 


001001 








.WORD 


513 


036064 


036767 








.WORD 


T162SSR 


036066 


012046 








.WORD 


PKTSSR 


1910 036070 


005237 


002222 




INC FATFLG 


,SET FATAL ERROR FLAG 




1911 036074 






40$: 


CKLOOP 


lLOOP ON ERROR, IF FLAG SET 




036074 


104406 








TRAP 


C$CLP1 


1912 






I 


If Timer A NOT- Then Print 


Error 




1913 






I 


If Timer B NOT- Then Print 


Error 




1914 036076 


005002 






CLR R2 


iINIT EXPD 




1915 036100 


042702 


000010 




BIC «S2.ATIM,R2 


, TIMER A EXPD-0 




1916 036104 


042702 


000004 




BIC *S2.BTIM,R2 


j TIMER B EXPD-0 




1917 036110 


012700 


040252 




MOV *T16BFSTA,P0 


(GET RECV READ STATUS 




1918 036114 


016001 


000002 




MOV 2CR0) # R1 


(GET RECV BYTE 2 




1919 036120 


042701 


177763 




BIC *tC<S2.ATIM}S2,BTIM>,Rl (SAVE TIMER AjB RECV ONLY 




1920 036124 








FORCERROR 72$,N0TSSR 


(BSD 




1921 036134 


020201 






CMP R2.R1 


(EXPD EQUAL RECV? 




1922 036136 


001404 






BEQ 80$ 


tBR IF YES 




1923 036140 








NEXT.ERRNO 






1924 036140 






72$: 


ERRHRD ERRNO, T16T01, TIMEXP 


1 REPORT ERROR 




036140 


104456 








TRAP 


C$ERHRD 


036142 


001002 








.WORD 


514 


036144 


037431 








.WORD 


T16T01 


036146 


015552 








.WORD 


TIMEXP 


1925 036150 






80$: 


CKLOOP 


(LOOP ON ERROR, IF FLAG SET 




036150 


104406 








TRAP 


C$CLP1 


1926 














1927 






j 


Do a Write Control RESET TIMER with 28 microsecond delay 




1928 036152 


012700 


000001 




MOV *MS.RSD,RO 


jRESET TIMER COMMAND 




1929 036156 


013701 


036654 




MOV U6D28.R1 


j 28 MICROSECONO DELAY 




1930 036162 


004737 


040142 




JSR PC.T16WMISC 


j SETUP T16PK2 COMMAND PACKET 




1931 036166 


012704 


040260 




MOV *T16PK2,R4 


iGET WRITE SUBSYSTEM COMMANO PACKET 


1932 036172 


010465 


000000 




MOV R4.TSDBCR5) 


(SET THE PACKET ADDRESS TO EXECUTE 


1933 036176 


004737 


016336 




JSR PC.CHKTSSR 


(WAIT FOR SSR TO SET 




1934 036202 








FORCERROR 112$ 


(SQOFORCE ERROR IF F0RCER*1 


1935 036216 


103407 






BCS 120$ 


jBR IF CARRY SET CGOOO RETURN) 




1936 036220 


010001 






MOV R0.R1 


(SAVE CONTENTS OF TSSR 




1937 036222 








NEXT.ERRNO 






1938 0362?- 






112$: 


ERRDF ERRNO , T 162SSR . PKTSSR 


(DEVICE FATAL SSR FAILED TO SET 




0?' ,<>2 


104455 








TRAP 


C$ERDF 


( o6224 


001003 








.WORD 


515 


036226 


036767 








.WORD 


T162SSR 


036230 


012046 








.WORD 


PKTSSR 


1939 036232 


005237 


002222 




INC FATFLG 


(SET FATAL ERROR FLAG 




1940 036236 






120$: 


CKLOOP 


(LOOP ON ERROR, IF FLAG SET 




036236 


104406 








TRAP 


C$CLP1 


1941 






} 


If Timer A NOT- 1 Then Print 


Error 




1942 






j 


If Timer B NOT- 1 Then Print 


Error 




1943 036240 


005002 






CLR R2 


lINIT EXPD 




1944 036242 


052702 


000010 




BIS 0S2.ATIM.R2 


(TIMER A EXPD-1 




1945 036246 


052702 


000004 




BIS 0S2.BTIM.R2 


(TIMER B EXPD-1 




1946 036252 


012700 


040252 




MOV 0T16BFSTA.ro 


(GET RECV READ STATUS 




194 7 036256 


016001 


000002 




MOV 2(R0),R1 


(GET RECV BYTE 2 





Fll 
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TEST 5: SUBTEST 2: VERIFY TIMERS A,B 



1948 
1949 
1950 
1951 
1952 
1953 



1954 

1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 



1968 
1969 

1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 



1983 

1984 
1985 
1986 

1987 
1988 
1989 



036262 
036266 
036276 
036300 
036302 
036302 
036302 
036304 
036306 
036310 
036312 
036312 



036314 
036320 
036324 
036330 
036334 
036340 
036344 
036360 
036362 
036364 
036364 
036364 
036366 
036370 
036372 
036374 
036400 
036400 



036402 
036404 
036410 
036414 
036420 
036424 
036430 
036440 
036442 
036444 
036444 
036444 
036446 
036450 
036452 
036454 
036454 

036456 
036462 
036466 
036472 
0364 76 



042701 177763 

020201 
001404 



104456 
001004 
037530 
015552 

104406 



012700 
013701 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001005 
036767 
012046 
005237 

104406 



005002 
042702 
052702 
012700 
016001 
042701 

020201 
001404 



104456 
001006 
037630 
015552 

104406 

012700 
013701 
004737 
012/04 
010465 



172$ 



180$ 



000001 
036656 
040142 
040260 
000000 
016336 



002222 



220$: 



000010 
000004 
0401*2 
000002 
177763 



000001 
036660 
040142 

040260 
000000 



272*: 

280$; 

i 



7:14 




SEQ 135 




BIC *tc<S2.ATIM»S2.BTIM> 


,R1 


{SAVE TIMER A:B RECV ONLY 




FORCERROR 172$,N0TSSR 




jSSD 




CMP R2.R1 




lEXPD EQUAL RECV? 




BEQ 180$ 




iBR IF YES 




NEXT.ERRNO 








ERRHRD ERRNO , T16T28 , TIMEXP 




t REPORT ERROR 








TRAP 


C$ERHRD 






.WORD 


516 






.WORD 


T16T28 






.WORD 


TIMEXP 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


CJCLPl 



Do o Write Control RESET TIMER with 53 microsecond delay 

i RESET TIMER COMMANO 
j 53 MICROSECONO DELAY 
j SETUP T16PK2 COMMAND PACKET 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO FXECUTE 
jWAIT FOR SSR TO SET 

jMOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

212$: ERRDF ERRNO, T162SSR.PKTSSR {DEVICE FATAL SSR FAILED TO SET 



MOV 


OMS.RSD.RO 


MOV 


T16D53,R1 


JSR 


PC.T16WMISC 


MOV 


0T16PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 212 


BCS 


220$ 


MOV 


R0.R1 


NEXT 


.ERRNO 





TRAP 


CIERQF 




.WORD 


517 




.WORD 


T162SSR 




.WORD 


PKTSSR 


INC FATFLG {SET FATAL ERROR FLAG 






CKLOOP ;LOOP ON ERROR, IF FLAG 


SET 






TRAP 


C$CLP1 


If Timer A NOT- Then Print Error 






If Timer B NOT- 1 Then Print Error 






CLR R2 jINIT EXPO 






BIC *S2.ATIM,R2 {TIMER A EXPD-0 






BIS 0S2.BTIM.R2 {TIMER B EXPD-1 






MOV *T16BFSTA,R0 {GET RECV READ STATUS 






MOV 2CR0),R1 {GET RECV BYTE 2 






BIC *tc<S2,ATIM!S2.BTIM>,Rl J SAVE TIMER A;B RECV ONLY 




FORCERROR 272$,N0TSSR S 08D 






CMP R2.R1 {EXPD EQUAL RECV? 






BEQ 280$ {BR IF YES 






NEXT.ERRNO 






ERRHRD ERRNO, T16T53, TIMEXP ;REPORT ERROR 








TRAP 


C$ERHRD 




.WORD 


518 




.WORD 


T16T53 




.WORD 


TIMEXP 



CKLOOP 

Do a Ur\ te Control 

MOV OMS.RSD.RO 

MOV T16D78,R1 

JSR PC.T16WMISC 

MOV 4T16PK2,R4 

MOV R4.TSDBCR5) 



{LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
RESET TIMER with 78 microsecond delay 
{RESET TIMER COMMAND 
{78 MICROSECOND DELAY 
{SETUP T16PK2 COMMAND PACKET 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 



Gil 



TSV5 - HARDWARE 


TESTS 


MACRO r 


TEST 5: 


SUBTEST 2; VERIFY TIME 


1990 


036502 


004737 


016336 


1991 


036506 






1992 


036522 


103407 




1993 


036524 


010001 




1994 


036526 






1995 


036526 








036526 


104455 






036530 


001007 






036532 


036767 






036534 


012046 




1996 


036536 


005237 


002222 


1997 


036542 








036542 


104406 




1998 








1999 








2000 


036544 


005002 




2001 


036546 


052702 


000010 


2002 


036552 


042702 


000004 


2003 


036556 


012700 


040252 


2004 


036562 


016001 


000002 


2005 


036566 


042701 


177763 


2006 


036572 






2007 


036602 


020201 




2008 


036604 


001404 




2009 


036606 






2010 


036606 








036606 


104456 






036610 


001010 






036612 


037730 






036614 


015552 




2011 


036616 








036616 


104406 




2012 








2013 


036620 
036620 








036620 


104403 




2014 








2015 


036622 


005737 


002222 


2016 


036626 


001402 




2017 


036630 


004737 


017202 


2018 


036634 


004737 


016456 


2019 


036640 


103002 




2020 


036642 


000137 


034622 


2021 


036646 






2022 








2023 








2024 


036646 








036646 


104432 






036650 


001524 




2025 








2026 








2027 








2028 








2029 








2030 


036652 


000001 




2031 


056654 


000040 




2032 


036656 


000076 





06-FE8-84 17: la 



312$ 



JSR PC.CHKTSSR 

FORCERROR 3125 

BCS 320i 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T162SSR.PKTSSR 



SEQ 136 



{WAIT FOR SSR TO SET 

jSJQOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OK TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 519 
.WORD T162SSR 
.WORD PKTSSR 



320$ 



372$ 



380$ 



INC FATFLG 




{SET FATAL ERROR FLAG 




CKLOOP 




jLOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


If Timer A NOT- 1 Then Print 


E 


rror 




If Timer B NOT- Then Print 


E 


rror 




CLR R2 




iINIT EXPD 




BIS 0S2.ATIM.R2 




I TIMER A EXPD-1 




BIC *S2.BTIM ( R2 




{TIMER B EXPO-O 




MOV *T16BFSTA,R0 




{GET RECV READ STATUS 




MOV 2(R0),R1 




{GET RECV BYTE 2 




BIC *tC<S2.ATIM»S2.BTIM>, 


Rl 


{SAVE TIMER A:B RECV ONLY 




FORCERROR 372$ .NOTSSR 




jSSO 




CMP R2.R1 




jEXPD EQUAL RECV? 




BEQ 360$ 




{BR IF YES 




NEXT.ERRNO 








ERRHRD ERRN0.T16T78.TIMEXP 




{REPORT ERROR 








TRAP 


C$ERHRD 






.WORD 


520 






.WORD 


T16T78 






.WORD 


TIMEXP 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ENOSUB 




;//////////// END SUBTEST ////////// 






L 10055; 








TRAP 


c$esub 





TST 


FATFLG 




BEQ 


460$ 




JSR 


PC.CKDROP 


460$; 


JSR 


PC.TSTLOOP 




BCC 


465$ 




JMP 


T16L00P 


465$: 







{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 

{SHOULD WE DO ITERATIONS? 

iBR IF NO 

{LOOP UNTIL ITERATIONS DONE 



EXIT 



TST 



////////// EXIT TEST 



////////// 

TRAP CSEXIT 
.WORD L 10053 



; LOCAL STORAGE FOR THIS TEST 



T 16001.: 


. WORD 


1 


T16D28: 


.WORD 


40 


T16D53; 


.WORD 


76 



{1 MICROSECOND DELA> (ACTUALLY .8 MIC 
{28 MICROSECOND DELAY (.8 MICROS PER ^ 
{53 MICROSECOND 
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Hll 



2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 

2045 
2046 
204 7 
2046 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
20 76 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 



036660 000142 



036662 
07 /32 
03676 7 
037033 
037100 
037202 
037314 

037431 
037530 
037630 
037730 



040030 
040030 
040034 
040040 
040044 
040046 
040052 
040056 
040060 
040064 
040066 
040070 
040074 



040076 
040076 
040102 
040106 
040112 
040114 
040116 
040120 



040122 
040122 
040126 
040132 
040136 
040140 



105 
127 
127 
127 
102 
104 
124 

124 
124 
124 
124 



012700 
012720 
012720 
005020 
012720 
012720 
005020 
012720 
005020 
005010 
005037 
000207 



012701 
012702 
105021 
005302 
003375 
000207 



004737 
012700 
112720 
105010 
000207 



170 
122 
122 
122 
165 
141 
123 

151 
151 
151 
151 



164 

111 
111 
111 
163 
164 
123 

155 
155 
155 
155 



040210 
100004 
040220 

000012 
040232 

000024 



040232 



040232 
000026 



040076 
040270 
000005 



.WORD 142 



T16D78j 

* 

LOCAL TEXT MESSAGES FOR TEST 



SEQ 137 



j 78 MICROSECOND 



TST16ID: 
T16SSR; .ASCIZ 
T162SSR:. ASCIZ 
T163SSR:. ASCIZ 
T16TSBA}. ASCIZ 
T16LEN:. ASCIZ 
T16REJ:, ASCIZ 

T16T01:. ASCIZ 
T16T28:. ASCIZ 
T16T53:. ASCIZ 
T16T78:. ASCIZ 
.EVEN 



ASCIZ 'Extended Features Switch and Timers A,B' 

WRITE CHARACTERISTICS Foiled 1 

WRITE SUBSYSTEM (Write Misc) Failed' 

WRITE SUBSYSTEM (Read Status) Failed' 

Bus Address Register (TSBA) Incorrect after Write Characteristics' 

Data Field Length in Message Buffer Incorrect after Write Characteristics' 

TSSR Function Reject Not Returned When Non -Existent Buffer Address Specific 



Timer 
Timer 
T imer 
T imer 



A,B 
A,B 
A,B 
A,B 



Incorrect 
Incorrect 
Incorrect 
Incorrect 



after Reset Timer with 1 microsecond Delay' 

after Reset Timer with 28 microsecond Delay' 

after Reset Timer with 53 microsecond Delay' 

after Reset Timer with 76 microsecond Delay' 



{ ♦ 



SET DEFAULT PACKET 



T16REST: 




MOV 


*T16PACKET,R0 


MOV 


*10OOO4,(R0)f 


MOV 


*T16DATA,(R0)* 


CLR 


(RO)* 


MOV 


010. t (R0)» 


MOV 


*T16BFR,(R0)* 


CLR 


(RO)* 


MOV 


*20. ,(R0)* 


CLR 


CRO)* 


CLR 


CRO) 


CLR 


T16BFR 


RTS 


PC 



{PACKET ADDRESS 

{WRITE CHARACTERISTICS WITH ACK 

{ADDRESS OF CHAR DATA BLOCK 

{EXTENOED ADDRESS 

l SIZE OF MESSAGE PACKET 

j MESSAGE BUFFER ADDRESS 

I CLEAR EXTENOED BUFFER ADDRESS 

{LENGTH OF MESSAGE BUFFER 

{CLEAR ESS.ENB.EAI.ERI 

{CLEAR EXTENOED FEATURES WORD 

{CLEAR 1ST LOCATION IN MESSAGE BUFFER 



CLEAR MESSAGE BUFFER 



T16CLRBUF: 




SAVREG 




MOV 


*T16BFR,R1 


MOV 


OT16BEND-T16BFR.R2 


10$: CLRB 


CRD* 


DEC 


R2 


BGT 


10$ 


RTS 


PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

{GET MESSAGE BUFFER ADDRESS 

{SIZE OF MESSAGE BUFFER IN BYTES 

{CLEAri A BYTE 

{DONE? 

{BR T S NO 

{RETURN 



1 SETUP 


T16PK2 


PACKET FOR READ STA 


T16SR0{ 








JSR 


PC.T16CLRBUF 




MOV 


*T16DT2,R0 




MOVB 


*PU.RDSTATUS,(RO)* 




CLRB 


(RO) 




RTS 


PC 



{CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM D4TA BUFFER 

{STORE READ STATUS COMMAND IN BSELO 

{CLEAR BSEL1 

{RETURN 
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111 



SEQ 138 



2090 






2091 






2092 






2093 






2094 






2095 






2096 






2097 






2098 


040142 




2099 


040142 




2100 


040146 


004 737 040076 


2101 


040152 


012702 040270 


2102 


040156 


112722 000010 


2103 


040162 


110022 


2104 


040164 


110112 


2105 


040166 


000207 


2106 






2107 






2108 






2109 


040170 




2110 


040170 


012700 040270 


2111 


040174 


112720 000010 


2112 


040200 


112710 000200 


2113 


040204 


000207 


2114 






2115 






2116 






2117 






2119 




040210 


2121 






2122 






2123 






2124 


040210 




2125 


040210 


100004 


2126 


040212 


040220 


2127 


040214 


000000 


2128 


040216 


000012 


2129 






2130 


040220 




2131 


040220 


040232 


2132 


040222 


000000 


2133 


040224 


000024 


2134 


040226 


000000 


2135 


040230 


000000 


2136 






2137 






2138 






2139 






2140 


040232 




2141 


040232 


000000 


2142 


040234 


000000 


2143 


040236 


000000 


2144 


040240 


000000 


2145 


040242 


000000 


214^ 


040244 


000000 


214 V 


040246 


000000 


2148 


040250 


000000 



SETUP T16PK2 PACKET FOR WRITE MISC. 



INPUT: 

; RO 

; Rl 

T16WMISC: 

SAVREG 

JSR 

MOV 

MOVB 

MOVB 

MOVB 

RTS 



CONTAINS WRITE MISC FUNCTION CODE CBSELl) 
CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 



PC.T16CLRBUF 

*T16DT2,R2 

♦PW.WMISC.CR2)* 

R0.CR2U 

R1.CR2) 

PC 



j SAVE R1-R5 UNITL NEXT RETURN 

I CLEAR MESSAGE BUFFER 

SUBSYSTEM DATA BUFFER 
WRITE MISCELLANEOUS IN BSELO 
WRITE MISC CODE IN BSEL1 
DELAY (RESET TIMER) IN BSEL2 



jURITE 
j STORE 
I STORE 
j STORE 
{RETURN 



SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 



T16SEXT: 



MOV *T16DT2,R0 

MOVB OPU.WMISC.CRO)* 

MOVB OMS.EXT.(RO) 

RTS PC 



.-<. *10>£177770 
jWRITE CHARACTERISTICS COMMAND PACKET 



T16PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 



T16DATA: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



;MESSAGE BUFFER 



100004 

T16DATA 



10. 



T16BFR 



20, 







Tl6BFRj 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






jWRITE SUBSYSTEM DATA BlFFER 

{STORE WRITE MISCELLANEOUS IN BSELO 

{STORE INVERT EXTENDED FEATURES IN BSEL1 

{RETURN 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
jESS.ENB.EAI.ERI 
{EXTENDED FEATURES WORD 



{BEGIN MESSAGE BUFFER 

{MESSAGE TYPE 

{DATA FIELD LENGTH 

jRBPCR 

tXSTO 

{XST1 

IXST2 

{XST3 

{XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 



Jll 
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T16BFSTA: .BLKB 6. 

T16BEN0: 



2149 


040252 




2150 


040260 




2151 






2152 






2153 






2157 


040260 




2158 


040260 


100006 


2159 


040262 


0402 70 


2160 


040264 


000000 


2161 


040266 


000012 


2162 






2163 


040270 




2164 


040270 


000 


2165 


040271 


000 


2166 


040272 


000000 


2167 


040274 




2168 






2169 






2170 


0*0374 
040374 
040374 


104401 



SEQ 139 



j READ STATUS AND WRITE FIFO BUFFER 
I END OF MESSAGE BUFFER 



; WRITE SUBSYSTEM READ STATUS COMMAND PACKET 



T16PK2: 



T16DT2: 



.WORD 
.WORD 
.WORD 
.WORD 



.BYTE 
.BYTE 
.WORD 
.BLKB 



ENDTS1 



P.WRTSUBJP.ACK 

T16DT2 



10. 






64 



j WRITE SUBSYSTEM WITH ACS< 
;L0W ADDRESS OF DATA BLOCK 
jHIGH AODRESS OF DATA BLOCK 
j MINIMUM MESSAGE PACKET SIZE 



{DATA BLOCK 
iBSELO 
jBSELl 
;SEL2 
jWRITE FIFO 



DATA OUTPUT BUFFER 



L10053: 



TRAP 



C5ETST 



Kll 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 6: FIFO EXERCISER 

2172 

2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 

2194 040376 
040376 

2199 040376 012700 0**026 

2200 040402 004737 016!! 10 

2201 040406 012737 0000' 2 002215 

2202 040414 004737 0172"* 4 

2203 040420 005037 00313<* 

2204 040424 
2205 

2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2213 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
222 7 
2228 
2229 
2230 
2231 



06-FEB-84 17:14 



SEQ 140 



* * 
TEST 



,SBYTL TEST 
DESCRIPTION? 



6: FIFO EXERCISER 



Th I u test uses the Wr i te Subsystem Memory command to 
ver-fy the controller's FIFO and associated status and 
control logic. 



} TEST STEPS: 



REPEAT FOR LOOPCNT 




BEGIN 




Do Subtest 1 


- FIFO 


Do Subtest 2 


- FIFO 


Do Subtest 3 


- FIFO 


Do Subtest 4 


- FIFO 


Do Subtest 5 


- FIFO 


Do Subtest 6 


- FIFO 


END 





Initialize status test 
Write Single Byte test 
Write Multiple Bytes test 
Verify ILW Status test 
Input Ready test 
Verify Reset FIFO test 



BGNTST 



T6: : 
j ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
i PERFORM 10 ITERATIONS 
I SHUT OFF MEMORY MANAGEMENT 
; REALLY SHUT DOWN KT-11 



.SBTTL TEST 6: SUBTEST 1; FIFO INITIALIZE STATUS TEST 



MOV 


STST17ID.R0 


JSR 


PC t TSTSETUP 


MOV 


010. .LOOPCNT 


JSR 


PC.KTOFF 


CLR 


KTENABLE 


T17LO0P: 





j TEST 6: SUBTEST 1: 
I SUBTES T DESCRIPTION; 



This teat verifies, by using the Read Status select code, 
that the FIFO status is in the correct initial state after 
the controller is initialized (Input Ready TRUE » 
Output Ready and Data In Miss FALSE). These status 
signals are checked by the controller's self -test 
sequence, so this subtest is actually more or a partial 
checU of the Read Status function than the FIFO status. 



TEST STEPS; 

BEGIN 

Write 



to TSSR to soft initialize 



END 



Do a WRITE CHARACTERISTICS to setup n message buffer 

Do a WRITE SUBSYSTEM Read Status 

If Input Ready NOT-1 Then Print Error 

If Output Ready NOT-0 Then Print Error 

If Data In Miss NOT-0 Then Print Error 



Lll 



TSV5 - HARDWARE 


TESTS 


MACRO MU13 


TEST 6: 


SUBTEST 1: FIFO INITIALIZE 


2232 








2253 


040424 
040424 








040424 


104402 




2234 








2235 








2236 


040426 






2237 


040426 


004737 


015774 


2236 


040432 


103405 




2239 


040434 


010001 




2240 


040436 








040436 


j. 04455 






040440 


001130 






040442 


003652 






040444 


012034 




2241 








2242 


040446 


005037 


002222 


2243 


040452 


012704 


050220 


2244 


040456 


0C4737 


010662 


2245 


040462 






2246 


040476 


103407 




2247 


040500 


010001 




2248 


040502 






2249 


040502 








040502 


104455 






040504 


001131 






040506 


046645 






040510 


012046 




2250 


040512 


005237 


002222 


2251 


040516 








040516 


104406 




2252 








2253 








2254 


040520 


004737 


050004 


2255 


040524 


012704 


050370 


2256 


040530 


010465 


000000 


2257 


C40534 


004737 


016336 


2258 


040540 






2259 


040554 


103407 




2260 


040556 


010001 




2261 


040560 






2262 


040560 








040560 


104455 






040562 


001132 






040564 


046746 






040566 


012046 




2263 


040570 


005237 


002222 


2264 


040574 








040574 


104406 




2265 








2266 


C40576 


004737 


050166 


2267 


040602 


012701 


046422 


2268 


040' 06 


012702 


050262 


2269 


040612 


012221 




2270 


040614 


011211 




2271 


040616 


052m 


000020 


2272 


040622 


042711 


000040 



06 FEB -84 17; 14 
STATUS TEST 



I -- 



i 
5$; 



10$: 



42$: 



50$: 



b^$: 



70$; 



BGNSU3 



SEQ 141 



j //////////// BEGIN SUBTEST ////////// 

T6.1: 

TRAP C$BSUB 



Write to TSSR register to 90ft initialize the controller 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0,R1 

ERRDF ERRNO , SFIERR , SFIMSG 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV 4T17PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, T17SSR ,PKTSSR 



INC FATFLG 
CKLOOP 



{WRITE TO TSSR TO SOFT INITIALIZE 

tBR IF SOFT INIT OKAY 

j SAVE CONTENTS OF TSSR 

: DEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
setup a message buffer 

> CLEAR FATAL ERROR FLAG 

{GET THE ADDRESS Of COMMAND PACKET 

{DO WRITE CHARACTERISTICS COMMAND 

lOSOFORCE ERROR IF FORCER-1 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 



C$ERDF 
600 

SFIERR 
SFIMSG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
. WORD 
{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP 



C*£RUF 
bOl 

Tl?sSR 
PKTSSR 



C$CLP1 



Do a 

JSR 

MOV 

MOV 

JSR 



Write Subsystem READ STATUS 



PC.T17SRD 

*T17PK2,R4 

R4.TSDBCR5) 

PC.CHKTSSR 
FORCERROR 62$ 
BCS 70$ 
MOV 30, Rl 
NEXT. ERRNO 
ERRDF ERRNO, T173SSR.PKTSSR 



INC 
CKLOOP 



FATFLG 



jSETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iS&OFOflCE ERROR IF FORCER-1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDK 
. WORD 602 
.WORD T173SSR 
.WORD PKTSSR 

;SET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



Set WORDS 0-7 of e\pd message buffer - to recv since not testing 



JSR PC.T175ETEXP 

KOV *T17EXS1A,R1 

MOV 0T17BFSTA.R2 

MOV (R2)f,(Rl)» 

MOV (R2),(R1) 

BIS 4S2.INRDY.CR1) 

BIC O^QUTRpY.CRl) 



{SET WORDS 0-7 EXPD-RECV 

iGET EXPECTED READ STATUS 

{GET RECV READ STATUS 

» SET EXPO WORD *8 - RECV TEMP 

{SET EXPD WORD 99 - RECV TEMP 

{SET EXP INPUT READY- TRUE 

{SET EXP OUTPUT READY * FALSE 



Mil 
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2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 



2285 

2286 
2287 



2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 



040626 042711 000200 



040632 
040634 
040640 
040644 
040650 
040654 
040664 
040666 
040666 
040666 
040670 
040672 
040674 
040676 
040676 

040 700 
040700 
040700 

040702 
040706 
040710 
040714 



005000 
012701 
012702 
012703 
004737 

103404 



104456 
001133 
047165 
012350 

104406 



104403 

005737 
001402 
004737 



050242 
046402 
000024 
011500 



82$; 



90$: 



BIC 0S2.DIM.CR1) 

If Input Ready NOT-1 then Prin 

If Output Ready NOT-O or Data 

CLR RO 

hOV 4T17BFR.R1 

MOV 4T17EXP.R2 

MOV #20., R3 

JSR PC.CKMSG2 

FORCERROR 82$,N0TSSR 

BCS 90$ 

NEXT.ERRNO 

ERRHRD ERRN0,T171CMP,MSGSTAT 



CKLOOP 



SEQ 142 

{SET EXP DATA IN MISS - FALSE 
t Error 
in Miss NOT-O Then Print Error 

j HIGH RECV ADDRESS FOR CKMSG2 

jLOW RECV ADDRESS FOR CKMSG2 

I EXPO ADDRESS 

{NUMBER OF BYTES TO COMPARE 

jEXPD EQUAL RECV? 

jQOO 



iBR IF YES 
} REPORT ERROR 



;LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 
603 

T171CMP 
MSGSTAT 

C5CLP1 



ENDSUB 



002222 
017202 



160$ 



TST 


FATFLG 


BEQ 


160$ 


JSR 


PC.CKDROP 



;//////////// END SUBTEST ////////// 

L10057: 

TRAP C$ESU8 

{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.5BTTL TEST 6s SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



TEST 6: 



SUBTEST 2: 



SUBTEST DESCRIPTION: 

This subtest verifies the ability of the FIFO to correctly 
pass a single data byte from input to output. For each 
of 256 data values (0-377 octal) the following Is done: 

1. Initial FIFO status is checked 

2. The Write FIFO function, specifying a count of 
one byte to be written is executed. 

3. Read Status is executed e>r\d FIFO status is checked 

4. Reod FIFO is executed and the data and final status 
is checked. 



5 TEST STEPS: 
1 BEGIN 



Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to *. s f; 

a Write Subsystem READ y % -" c 

Input Ready NOT-1 

Output Ready NOT-O 

Data In Miss N0."-0 



Do 

If 
If 
If 



Then 
Then 
Then 



up 

i US 
Pri.it 

n ;»*t 



K" 



a message buffer 

Error 
Er-r- 
Error 



REPEAT FOR DATA FROM TO 377 OCTAL 
BEGIN 



Nil 
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SEQ 143 



2323 
2324 
2325 
2326 
232? 
2320 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 



2339 
2.340 
2341 
2342 
2343 
2344 
2345 



2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 



2355 
2356 

2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2 365 
2366 



040714 
040714 
040714 



040716 
040716 
040722 
040724 
040726 
040726 
040730 
040732 
040734 

040736 
040742 
040746 
040752 
04C766 
0407 70 
040772 
040772 
040772 
0407 74 
0407 76 
041000 
041002 
041006 
041006 

041010 
041014 
041020 
041024 
041030 
041044 
041046 
041050 
041050 
041050 
041052 



104402 



004737 
103405 
010001 

104455 
001133 
003652 
012034 

0050.17 

012704 
004 737 

103407 
010001 



104455 
001134 
046645 
012O46 
005237 

104406 

004 737 
012704 
010465 
004 737 

103407 
010001 



104455 
001135 



i 



END 
END 



Do 
Do 
Do 
If 
If 
If 
Do 
If 
Do 
If 
If 
If 



a Write Subsystem WRITE 
a Urite Subsystem WRITE 
a Write Subsystem READ STATUS 
Input Ready N0T»1 Then Print 
Output Ready NOT-1 Then 
Data In Mi*s NOT-0 Then 
Write Subsystem REAO FIFO 
Dnta read from FIFO NOT» 



a Write Subsystem READ STATUS 



NPR to set tope direction out 
FIFO with byte count equal to 

Error 
Print Error 
Print Error 

with byte count equal to 1 
to Data 3ent Then Print Error 



1 



Input Ready 
Output Ready 
Data In Miss 



NOT 
NOT 
NOT 



Then 

Ther 
Then 



Print 
Print- 
Print 



Error 
Error 
Error 



I -- 



015774 



5$: 



002222 
050220 
010662 



10$: 



42$: 



50$; 



050004 
050370 
000000 
0!6336 



62$: 



BGNSUB 



,//////////// BEGIN SUBTEST ////////// 

T6.2: 

TRAP C5BSUB 



Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SFIMSG 



Do a WRITE CHARACTERISTICS to set 

CLR FATFLG ; 

MOV 0T17PACKET.R4 ; 

JSR PC.WRTCHR \ 

FORCERROR 42$ 

BCS 50$ » 

MOV R0.M1 { 

NEXT.ERRNO 

ERRDF ERRNO, T17SSR.PKTSSR 



WRITE TO TSSR TO SOFT INITIALIZE 

63 IF SOFT INIT OKAY 

SAVE CONTENTS Of TSSR 

DEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

up a message bur Per 

CLEAR FATAL ERROR FLAG 

GET THE ADDRESS !>" COMMAND PACKET 

DO WRITE CHARACTERISTICS COMMAND 

iBSOFORCE ERROR IF FORCER-1 

BR IF CARRY SET (GOOD RETURN) 

SAVE CONTENTS OF TSSR 



C$ERDF 

603 

SFIERR 

SFIMSG 



j DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



INC 
CKLOOP 



FATFLG 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



Write Subsystem 
PC.TWSRD 
0T17PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 
62$ 



READ STATUS 



SET 
TRAP 



CIFRDF 
604 
T17SSR 
PKTSSR 



C$CLP1 



Do a 

JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 70$ 

MOV R0.P1 

NEXT. ERRNO 

ERROF ERRNO , T 1 73SSR , ri< TSSR 



j SETUP HACKET FOP READ STATUS 
} GET WRITE SUBSYSTEM COHMANO PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
j WAIT FOR SSR TO SET 

; aSOFO«CE ERROR IF FORCER" 1 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 



DEVICE FATAL SSR 



FAILED TO SET 

TRAP CURDF 

.WORD 605 



B 1 



c\ 
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SEQ 144 





041054 


046746 






041056 


012046 




2367 


041060 


005237 


002222 


2368 


041064 








041064 


104406 




2369 








2370 


041066 


004737 


050166 


2371 


041072 


012701 


046422 


2372 


041076 


012702 


050262 


2373 


041102 


012221 




2374 


041104 


011211 




23 75 


041106 


052711 


000020 


2376 


041 U? 


042711 


000040 


2377 


041116 


042711 


000200 


23 78 








2379 








2380 


041122 


005000 




2381 


04U24 


012701 


050242 


2382 


011130 


012702 


046402 


2383 


04U34 


OT2703 


000024 


2384 


041140 


C04737 


011500 


2385 


041144 






2386 


041154 


103404 




2387 


041156 






2388 


041156 








041156 


104456 






O4U60 


OOH56 






041162 


047165 






041164 


012350 




2389 


041166 








041166 


104406 




2390 








2391 








2392 


041170 


012737 


000000 


2395 


04U76 






2394 








2395 


041176 


012700 


000100 


2396 


041202 


004737 


050O46 


2397 


041206 


012704 


050 5 70 


2398 


041212 


010465 


OOOOOO 


239S 


041216 


004737 


016336 


2400 


041222 






2401 


041236 


103407 




2402 


041240 


010001 




2403 


041242 






2404 


041242 








041242 


104455 






041244 


001137 






041246 


04 7013 






041250 


012046 




2405 


041252 


005237 


002222 


2406 


041256 








041256 


104406 




240/ 








2408 


041260 


012700 


000001 


24 09 


041P64 


012701 


002312 


c j 410 


0412 7Q 


004 737 


0500/2 



70$} 



INC 
CKLOOP 



FATFl.G 



i SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



.WORD 
.WORD 



T173SSR 
PKTSSR 



S«t WORDS 0-7 of •nod m««§*tf# buf 
JSR PC,U7SETEXP j 

MOV 0T17EXSTA.R1 I 

MOV #T17BFSTA,R2 i 

MOV (R2)».(R1)» i 

MOV (P2),CR1) i 

BIS *S2.INRDY,(Rl) , 

BIC ♦S2.0UTRDY,(R1) » 

BIC tSZ.DItl.CU) i 

If Input R«ady NOT-1 th«n Print E 
If Output R«»dy NOT-0 or Data in 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 
*T17BFR,R1 

#T17EXP,R2 
#20., R3 
PC.CKMSG2 



82I,N0TSSR 



rtSIt 



901} 



FORCERROR 
BCS 901 

NEXT.CRRNO 

ERRHRD ERRN0,T171CMP»MSuSTAT 



CKLOOP 



I R«p#ot for 
MOV 



DATA fro«« 
♦O, DATA 



to 3 7/ 



1001} 
1 



Writ* Sub»y»t#m 
♦NP.OUT.RO 
PC.T17SNPR 
#T1 7PK2.R4 
R4.TS06CR5) 
PC, CHKT5SR 

102» 



Do A 

MOV 

JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 1051 

MOV R0.R1 

NE.XT.ERRNO 

ERRDF FRRNU,Tl74iiSR,PK 



WRITE NPR 



TSSR 



10'jJi 

I 



INC 

CKl OOP 



FATFL.G 



SET 

TRA^ C*CLP1 

f*r • to r«cv «!nc# not t#«t»ng 
SET WORDS 7 EXPD-RECV 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPD WORD #8 • RECV TEMP 
SET EXPD WORO #9 • RECV TEMP 
SET EXP INPUT READY- TRUE 
SET EXP OUTPUT READr- FALSE 
SET EXP DATA IN MISS - FALSE 
rror 

Mi»i NOT-O Th«n Print Error 
HIGH RECV ADORESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPD ADDRESS 

NUMBER OF BfTES TO COMPARE 
EXPD EQUAL RECV? 
MX) 
BR IF tFS 



REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 
.WORD 
.WORO 
.WORD 

SET 
TRAP 



CIERHRD 
606 

T171CMP 
MSGSTAT 

C*CLP1 



} GET FIRST DATA 
, REPEAT LABEL 
to »«t tmpm direct I on out 
iSET TAPE DIRECTION OUT 
iSETUP T17PK2 FOR WRITE ^R 
jGET WRITE SUBSYSTEM COWHAND PACKM 
iSET THE PACKET AOORESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iMOFORCE ERROR If rQRCER-1 
,BR IF CARRY SET (GOOO RETURN) 
|SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



iSET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FL AG 



Do a Writ* Sub«y«t#m WRITE FIFO 
MOV *l,RO 

MOV JDATA.Rl 

JSR PC.U7WKIF 



SET 

TRAP 
1 



w»th byt« count «qu»1 to 

jWRITf 1 BtTF 

lF IFO WRITE OATA ADDRESS 

I SETUP TX7PK2 FOR WRITE FIFO 



CURD* 
607 

T174S'jR 
PKTSSR 



CKXPi 



\m tTwmw^vhromwmiMmni 17 '-" 



ci2 



5F.Q 145 



2411 


0412M 


012/04 


0503/0 


2412 


041300 


010465 


000000 


2413 


041304 


004757 


016356 


2414 


041310 






2415 


041324 


105407 




2416 


0*1326 


010001 




24 1 7 


041330 






2418 


041330 








041330 


104455 






041332 


001140 






041354 


04 7056 






041336 


012046 




2419 


041340 


005257 


002222 


2420 


041544 








04 J 344 


104406 




2421 








2422 








2423 


041546 


004757 


050004 


24^4 


041352 


012704 


0503 70 


2425 


041556 


010465 


000000 


2426 


041562 


004757 


016336 


2427 


041366 






2428 


041*02 


105407 




2429 


0414 34 


O10O01 




2430 


041406 






2431 


041406 








O41406 


104455 






041410 


001141 






041412 


046 746 






041414 


012046 




2432 


041416 


005257 


002222 


2433 


041422 








041422 


104406 




24 34 








2435 


041424 


004757 


050166 


24 36 


041450 


012701 


046422 


2437 


041454 


012702 


050262 


24 38 


O41440 


012221 




2439 


041442 


011211 




2440 


041444 


052711 


000020 


2441 


041450 


052711 


000040 


2442 


041454 


042/11 


000200 


244 3 








2444 








2445 


041460 


005000 




2446 


041462 


012701 


05024? 


244 7 


041466 


012702 


046402 


2448 


0414 72 


012/03 


000024 


2449 


041476 


004757 


011500 


2450 


041502 






2451 


041512 


103404 




2452 


041514 






2453 


041514 








041514 


104456 






041516 


C0114p 






041520 


04/54^ 






041522 


012350 





107$! 



110*5 



120* } 

I 



132*! 



MOV OT17PK2,R4 

MOV R4,TSDB(R5) 

JSR PC.CMKTS5P 

FORCERROR 1071 

BCS 110* 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T175SSR, PKTSSR 



jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOP SSR TO SET 

jMOFOPCE ERROR IF FOPCER-1 
,BR IF CARRr SET CGOOO RETURN) 
»SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



IDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.UOPD 
.WORD 



,SET FATAL FRROR FLAG 
I LOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 

608 

T175SSR 

PKTSSR 



C*CLP1 



READ STATUS 



I Do a Writ* Subayatam 

JSR PC.U7SRD 

MOV ♦T17PK2.R4 

MOV R4 # TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 112$ 

BCS 120* 

MOV R0,R1 

NEXT, ERRNO 
112$; ERRDF ERRNO, T175SSR , PKTSSR 



I SETUP PACKET FOP READ STATUS 
I GET WRITE SUBSYSTEM COrflANO PACKET 
jSET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOP SSR TO SET 

jOfiDFOPCE ERROR IF FORCER- 1 
,BR IF Cf*RY SET (GOOO RETURN) 
j SAVE CONTfcNTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
609 

T173SSR 
PKTSSR 



, SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



SET 

TRAP 



Sat WORDS 0-7 of •*& maaaaga buffar 

JSR PCT17SETEXP iSET 

^ OV #T17EXSTA,R1 iGET 

hOV #T17BFSTA.R2 iGET 

MOV (R2)».CR1)» iSET 

MOV (R2).(R1) iSET 

BIS ♦S2.INRDY,(R1) ,SET 

BIS ♦S2.0UTRDY,CRn iSET 

BIC #S2.DIM,(R1) ,SET 

If input Raady NOT-i th*r\ Print Error 

If Output Raady NOT-1 or Data in 

CLR RO 

MOV •TWBFR.R1 

MOV «T17EXP,R2 

MOV ♦20., R3 

JSR PC, CKMSG2 

FORCERROR 152I.N0TSSR 

BCS 1401 

NEXT ERRNO 

ERRHRO ERRNO, T175CMP.MSGSTAT 



• to rtcv tinct not tatting 

WORDS 0- 7 EXPD-RECV 

EXPECTED READ STATUS 

RELV READ STATUS 

EXPO WORD #8 • RECV 

EXPO WORO *9 • RECV 

EXP INPUT READY- 1 



C*CLP1 



TEMP 
TEMP 



EXP OUTPUT REAOt 
EXP DATA IN MISS 



1 



Mia* NOT-O Th*n Print Error 




iMIGH RECV ADDRESS FOP CKMSG2 




HOW RECV ADDRESS FOR CKMSG2 




»EXPD ADDRESS 




iNUMBER OF BtTES TO COMPARE 




lEXPD EQUAL RECV? 




jSSO 




|8R IF YES 




iREPQRT ERROR 




TRAP 


L -.ERHRD 


.WORD 


* 10 


.WORD 


r l mcmp 


.WORD 


HSGSTAT 



D12 



YiVf •^ A §^lT T |r?IFO M flfi5fV E M 4^ 1 . t °iY , fi B fMT 1 " 14 



SEQ 146 



2454 


041524 








041524 


104406 




2455 








2456 








2457 


041526 


012700 


000001 


2458 


041532 


004737 


050126 


2459 


041536 


012704 


050370 


2460 


041542 


010465 


oooooo 


2461 


041546 


004737 


016336 


2462 


041552 






2463 


041566 


103407 




2464 


041570 


010001 




2465 


041572 






2466 


041572 








041572 


104455 






041574 


00X143 






041576 


04712? 






041600 


012046 




2467 


041602 


005237 


002222 


2468 


041606 








041606 


104406 




2469 








2470 


041610 


004737 


050166 


2471 


041614 


012701 


046422 


24 72 


041620 


012702 


050262 


2473 


041624 


013721 


002312 


2474 


041630 


011211 




2475 








2476 








2477 


041632 


005000 




24 78 


041654 


012701 


050242 


24 79 


041640 


012702 


046402 


2480 


041644 


011703 


000022 


2481 


041650 


0'>4737 


011500 


248? 


041654 






2483 


041664 


103404 




2484 


041666 






2485 


041666 








041666 


104456 






041670 


001144 






041672 


04 724 7 






041674 


013742 




2486 


041676 








041676 


104406 




2487 








2488 








2489 


041700 


004737 


050004 


2490 


041704 


012704 


0503 70 


2491 


041710 


010465 


OOOOOO 


2492 


041714 


004 737 


016336 


2493 


041720 






2494 


041754 


105407 




2495 


041736 


010001 




2496 


041740 






2497 


041740 








041740 


104455 






041/42 


001145 





140$ { CKLOOP 



i Do Write Subeyitem READ FIFO 

MOV Ol.RO 

JSR PC.T17RFIF 

MOV *T17PK2,R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 142$ 

BCS 150$ 

MGV R0.R1 

NEXT. ERRNO 
142$: ERRDF ERRNO, T176SSR.PKTSSR 



jLOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$CL.P1 



150$; 

J 



152$: 



160$: 



162$: 



with byte count ecjual to 1 
» SET READ BYTE COUNT 
i SETUP T17PK2 FOR READ FIFO 
l GET WRITE SU6SYSTEM COMMAND PACKET 
l SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

,8Q0F0RCE ERROR IF FORCER-l 
i BR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



lOEVICE FATAL SSR 



FAILED TO SET 




TRAP 


CiERDF 


.WORD 


611 


.WORD 


T176SSR 


.WORD 


PKTSSR 



INC 
CKLOOP 



FATFLG 



Set WORDS 0-7 of espd 

JSR PC.T17SETEXP 

MOV *T17EXSTA,R1 

MOV *T17BFSTA,R2 

MOV DATA,(R!)* 

MOV (R2),(R1) 

If Data read from FIFO 

The data i« in WORD 08 

CLR RO 

MOV «T178FR,R1 

MOV *T17EXP,R2 

MOV *18.,R3 

JSR PC.CKMSG2 

FORCERROH 152$ .NOT SSR 

BCS 160$ 

NEXT. ERRNO 

fcRRHRD ERRNO , T 1 72CMP , MSGSUB 



CKLOOP 



i SET FATAL ERROR FLAG 

I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

• to ricv since not testing 
WORDS 0-7 EXPO-RECV 
EXPECTED READ STATUS 
RECV *EAD STATUS 
EXPO W0«0 *8 » COUNT DATA 
EXPO WORD *9 • RECV (NOT TESTING) 
NOT- to Data sent Than Print Error 
of the meseaoe buffer 

l HIGH RECV ADDRESS FOR CKMSG2 

j LOW RECV ADDRESS FOR CKMSG2 

i EXPO ADDRESS 

j NUMBER OF BYTES TO COMPARE 

;EXPD EQUAL RECV? 

iseo 

jBR IF YES 



message buffer 
I SET 
i GET 
iGET 
I SET 
i SET 
Data 



j REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 


C$ERHRD 


.WORD 


612 


.WORD 


T172CMP 


.WORD 


MSGSUB 


SET 




TRAP 


C$CLP1 



Do a Write Subsystem READ STATUS 

JSR PC,U7SflD 

MOV OT17PK2.R4 

MOV R4.TSDBCR5) 

JSR PC, CHKTSSR 

rORCERROR 162$ 

BCS 170$ 

MOV RO,Rl 

NE/T. ERRNO 

ERRDF ERRNO » T 1 7 3SSR » PK T SSR 



jSETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
,WAIT FOH SSR TO SET 

iWOFORCE ERROR IF FORCER-l 
iBR IF CARRY SET (GOOO RETURN) 
,SAVE CONTENTS OF TSSR 



iCEVICE FATAL SSR 



FAILED TO SET 

TRAP C$tROf 

.WORD 613 



E12 



TSV5 • HARDWARE TESTS MACRO M1113 06-FEB-84 17 
TEST 6? SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



14 



SEQ 147 



2498 
2499 

2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 



25?0 

2521 
2522 
2523 
2524 
2525 
2526 
2527 
2526 



2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
254 3 
2544 



041744 
041746 
041750 
041754 
041754 

041756 
041762 
041766 
041772 
041774 
041776 
042002 
042006 



042012 
042014 
042020 
042024 
042030 
042034 
042044 
042046 
042046 
042046 
042050 
042052 
042054 
042056 
042C56 
042060 
042070 
042074 
042102 
042104 
042110 

042110 
042110 
042110 

042112 
042116 
042120 
042124 



046746 
012046 
005237 

104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 



005000 
012701 
012702 
012703 
004737 

103404 



104456 
001146 
047427 
012350 

104406 

005237 
023727 
101002 
000137 



104403 

005737 
001402 
004737 



002222 



050166 
046422 
050262 



000020 
000040 
000200 



050242 
046402 
000024 
011500 



170$; 

\ 



INC 
CKLOOP 



FATFLG 



Set WORDS 0-7 of expd message buffer 

JSR PC.T17SETEXP »" 

MOV 0T17EXSTA.R1 i 

MOV *T17BFSTA,R2 i 

MOV CR2)*.(R1>» i 

MOV CR2),(R1) i 

BIS *S2.INRDY,(R1) j 

BIC *S2.0UTRDY,(R1) , 

BIC 0S2.DIM.CR1) j 



172$: 



If Input Ready NOT-l then Print E 
If Output Ready NOT-0 or Data in 

CLR RO ; 

MOV *T17BFR>R1 i 

MOV *T17EXP,R2 * 

MOV #20., R3 t 

JSR PC.CKMSG2 ; 

FORCERROR 172$,N0TSSR » 

BCS 180$ j 
NEXT.ERRNO 

ERRHRD ERRN0.T174CMP.MSG5TAT ; 



.WORD 
.WORD 
SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 

TRAP 
to recv since not testlnj 
SET WORDS 0-7 EXPD-RECV 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPO WORD #8 ■ RECV TEMP 
SET EXPD WORD #9 - RECV TEMP 
SET EXP INPUT READY- 1 
SET EXP OUTPUT READY- 
SET EXP DATA IN MISS - 
rror 

Miss NOT-0 Then Print Error 
HIGH RECV ADDRESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPD ADDRESS 

NUMBER OF BYTES TO COMPARE 
EXPD EQUAL RECV? 
890 
BR IF YES 



T173SSR 
PKTSSR 



CICLP1 



REPORT ERROR 



180$! CKLOOP 



I LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



002312 
002312 

041176 



000377 



205$ j 



FORCEXIT 
INC DATA 
CMP DATA, 0377 
BHI 205$ 
JMP 100$ 



ENDSUB 



205$ 



CJERHRD 
614 

T174CMP 
MSGSTAT 

CtCLPl 



002222 
01720? 



TST 


FATFLG 


BEQ 


2601 


JSR 


PC.CKDROP 



260$; 



♦ ♦ 
TEST 



taso 

:GET NEXT TEST DATA 

;DONE TO 377? 

} BR IF YES 

jDO ANOTHER TEST PATTERN 



j//////////// END SUBTEST ////////// 

L 10060: 

TRAP C$ESU6 

j ANY FATAL ERRORS ? 

j BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 6s SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 



6; SUBTEST 3- 



5UBTEST DESCRIPTION: 

This subtest verifies the ability of the FIFO to correctly 

pass a multiple data bytes from input to output. 

The following sequence is done with various data patterns 



F12 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 
TEST 6: SUBTEST 3j FIFO WRITE MULTIPLE BYTES TEST 



SEQ 148 



2546 
254 7 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 



2583 
2584 
2585 
2586 
2587 
2588 
2589 



2590 
2591 
2592 
2593 
2594 
2595 



I 



and byte counts from 2 to 64. 

1. Initial FIFO status is checked 
The Write FIFO function. 

Read Status is executed and FIFO status is checked. 
Read FIFO is executed and the data and final status 
is checked. 



2. 
3. 
4. 



TEST STEPS: 



BEGIN 



Do 
If 
If 
If 
If 
REPEAT 



Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer 
a Urite Subsystem READ STATUS 



REPEAT FOR 
BEGIN 

Do 

Do 

Do 

If 

If 

If 

If 

Do 

If 

Do 

If 

If 

If 

If 
END 
END 



NOT'l Then Print Error 
NOT-0 Then Print Error 
NOT-0 Then Print Error 
NOT-0 Then Print Error 
377, 377 TO 0, FLOATING 
BYTE COUNT 2 TO 64 DECIMAL 



Input Ready 
Output Ready 
Data In Miss 
Last Word 
FOR DATA TO 



1'5,0'S AND ALL l'S/O'S 



a Write Subsystem 
a Write Subsystem 
a Write Subsystem 
Input Ready NOT-1 
Output Ready NOT-1 
Data In Miss NOT-0 
Last Word NOT-0 
Write Subsystem READ 
Data read from FIFO 



WRITE NPR to 
WRITE FIFO 
READ STATUS 



set tape direction out 



a Write Subsystem READ STATUS 



Then Print Error 
Then Print Error 
Then Print Error 
Then Print Error 
FIFO 
NOT- to Data sent Then Print Error 



Input Ready 
Output Ready 
Data In Miss 
Last Word 



NOT 
NOT 
NOT 
NOT 



Then 
Then 
Then 
Then 



Print 
Print 
Print 
Print 



Error 
Error 
Error 
Error 



042124 
042124 
042124 



04 ?1.26 

042126 
042132 
042154 
042156 
042156 
042140 
042142 
042144 

042146 
042152 
042156 
042162 
042176 



BGNSU8 



104402 



004737 015774 

103405 

010001 

104455 
001146 
003652 
012034 

005037 002222 
012704 050220 
004737 010662 

103407 



}//////////// BEGIN SUBTEST ////////// 

T6,3: 

TRAP CSBSUB 



5$: 



Write to TSSR register to soft initialize the controller 



JSR 
BCS 
MOV 
ERRDF 



PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



10$ 



jWRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
{SAVE CONTENTS QT TSSR 
jDEVICE FATAL DURING INIT 

TRAP 
.WORD 
,UORD 
.WORD 

Do a WRITE CHARACTERISTICS to setup a message buffer 
CLR FATFLG {CLEAR FATAL ERROR FLAG 

MOV OT17PACKET.R4 {GET THE ADDRESS OF COMMANO PACKET 

JSR PC.WRTCHR jOO WRITE CHARACTERISTICS COMMAND 

FORCERROR 42$ } fi?tf)FORCE ERROR IF FORCER *1 

BCS 50$ jBR IF CARRY SET (GOOD RETURNS 



C$ERDF 
614 

SFIERR 
SFIMSG 



G12 
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2596 
2597 
2598 



2599 
2600 

2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 



2611 
2612 

2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 



2635 

2636 
2617 



042200 
042202 
042202 
042202 
042204 
042206 
042210 
042212 
042216 
042216 

042220 
042224 
042230 
042234 
042240 
042254 
042256 
042260 
042260 
042260 
042262 
042264 
042266 
042270 
042274 
042274 

042276 
042302 
042306 
042312 
042314 
042316 
042322 
042326 
042332 



042336 

042340 
042344 
042350 
042354 
042360 
042370 
042372 
042372 
042372 
042374 
042376 
042400 
042402 
042402 



010001 



104455 
001147 
046645 
012046 
005237 

104406 

004737 
012704 
010465 
004737 

103407 
010001 



104455 
001150 
046746 
012046 
005237 

104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
042711 



42$ 



002222 



050004 
050370 
000000 
016336 



50$ 



62$ 



002222 



050166 
046422 
050262 



000020 
000040 
000200 
000100 



70$ 

i 



005000 

012701 050242 

012702 046402 

012703 000024 
004737 011500 

103404 



104456 
001151 
04/165 
012350 

104406 



82$ 



90$ 



MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T17SSR.PKTSSR 



INC 
CKLOOP 



FATFLG 



Do a Write Subsystem READ STATUS 

JSR PC.T17SRD 

MOV OT17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 62$ 

BCS 70$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO, T173SSR .PKTSSR 



SEQ 149 



j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 615 
.WORD T17SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



, SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
j WAIT FOR SSR TO SET 

jSOOFORCE ERROR IF FORCER-1 
{BR IF CARRY SET CGOOO RETURN) 
;SAVE CONTENTS OF TSSR 



INC 

CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 616 
.WORD T173SSR 
.WORD PKTSSR 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP 

Set WORDS 0-7 of expd message buffer ■ to recv since not testing 
JSR PC.T17SETEXP {SET WORDS 0-7 EXPD-RECV 

MOV $T17EXSTA,R1 {GET EXPECTED READ STATUS 

MOV «T17BFSTA,R2 {GET RECV READ STATUS 

MOV (R2)*.CRn» {SET EXPO WORD *6 - RECV TEMP 

MOV (R2),CR1) {SET EXPD WORD 09 

BIS *S2.INRDY,CRl) ;SET EXP 

BIC #S2.0UTRDY,(R1) 
BIC *S2.DIM,CR1) 

BIC #S2,ILW,CRn {SET EXP LAST WORD (ILU)-O 

IF Input Ready NOT-1 then Print Error 

If Output Ready NOT-0 or Data in Miss NOT-0 Then Print Error 
If Last Word NOT-0 Then Print Error 



C$CLP1 



RECV TEMP 
INPUT READY- 1 
{SET EXP OUTPUT READY- 
jSEf EXP DATA IN MISS ■ 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 

*T17BFR I R1 

OT17EXP.R2 

•20..R3 

PC.CKMSG2 



82$,N0TS5R 



FORCERROR 

BCS 90$ 

NEXT.ERRNO 

ERRHRD ERRNO, T171CMP ,MSGSTAT 



CKLOOP 



{HIGH RECV ADDRESS FOP CKMSG2 

{LOW RECV ADDRESS FOR CKMSG2 

{EXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 

{EXPD EQUAL RECV? 

iSSO 

{BR IF YES 

{REPORT ERROR 



{LOOP ON ERROR, 



TRAP 


CiERHRD 


.WORD 


617 


.WORD 


un CMP 


.WORD 


MSGSTAT 


IF FLAG SET 




TRAP 


CSCLP1 



-112 



st ics' 
pec i f \ e 



TSV5 - HARDWARE 


TESTS 


MACRO MU13 0^ 


TEST 6; SUBTEST 3{ FIFO WRITE 


MULTIPLI 


2638 








2639 








2640 








2641 








2642 








2643 042404 


012737 


000001 


002314 


2644 042412 








2645 042412 


012737 


000002 


002310 


2646 042420 








2647 








2648 042420 


012700 


000100 




2649 042424 


004737 


050046 




2650 042430 


012704 


050370 




2651 042434 


010465 


000000 




2652 042440 


004737 


016336 




2653 042444 








2654 042460 


103407 






2655 042462 


010001 






2656 042464 








2657 042464 








042464 


104455 






042466 


001152 






042470 


047013 






042472 


012046 






2658 042474 


005237 


002222 




?*59 042500 








042500 


104406 






2660 








2661 042502 


004737 


050146 




2662 042506 


012701 


046524 




2663 042512 


013702 


002310 




2664 042516 


022737 


000001 


002314 


2665 042524 


001005 






2666 042526 


005000 






2667 042530 


110021 






2668 042532 


005200 






2669 042534 


005302 






2670 042536 


003374 






2671 042540 


022737 


000002 


002314 


2672 042546 


001006 






2673 042550 


012700 


000377 




2674 042554 


110021 






2675 042556 


005300 






2676 042560 


005302 






2677 042562 


003374 






2678 042564 


022737 


000003 


002314 


2679 042572 


001005 






2660 042574 


012700 


002752 




2681 042600 


112021 






2682 042602 


005302 






2603 042604 


003375 






2684 042606 








2685 042606 


013700 


002310 




2686 042612 


012701 


046524 




2687 042616 


004737 


050072 




2686 042622 


012704 


050370 




2689 042626 


010465 


oooooo 





06-FEB-, 



14 17:14 
i TESt 



SEQ 150 



95$ : 

100$ 

* 



REPEAT FOR 

TSTFLAG -1 

-2 

-3 

MOV 



BYTE COUNT 2 TO 64 DECIMAL 
FOR INCREMENT TEST PATTERN 
FOR DECREMENT TEST PATTERN 
FOR TSTBLK TABLE PATTERN 
41, TSTFLAG 



102$ 



MOV 

Do a 

MOV 

JSR 

MOV 

MOV 

JSR 

FORCERROR 102$ 

BCS 105$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T174SSR.PKTSSR 



42. COUNT 

Write Subsystem 
4NP.0UT,R0 
PC.T17SNPR 
4T17PK2.R4 
R4,TSDB<R5) 
PC.CHKTSSR 



;TEST PATTERN FLAG 

»GET FIRST BYTE COUNT 

WRITE NPR to set tape direction out 
jSET TAPE DIRECTION OUT 
; SETUP T17PK2 FOR WRITE NPR 
jGET WRITE SUBSYSTEM COMMAND PACKET 
jSET THE PACKET ADDRESS TO EXECUTE 
■ WAIT FOR SSR TO SET 

{SSDFORCE ERROR IF FORCER-1 
} BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR 



105$ 



110$ 



115$ 



120$ 



125$ 



130$ 



135$ 



INC 


FATFLG 


CKLOOP 




Do a Wr 


5te Subsystem 


JSR 


PC.T17CLEXP 


MOV 


4T17WFDATA.R1 


MOV 


COUNT, R2 


CMP 


41, TSTFLAG 


BNE 


115$ 


CLR 


RO 


MOVB 


R0,CR1)> 


INC 


RO 


DEC 


R2 


BGT 


110$ 


CMP 


42, TSTFLAG 


BNE 


125$ 


MOV 


4377.R0 


MOVB 


R0,(R1)> 


DEC 


RO 


DEC 


R2 


BGT 


120$ 


CMP 


43, TSTFLAG 


BNE 


135$ 


MOV 


4TSTBLK,R0 


MOVB 


(R0)*,CR1)*- 


DEC 


R2 


BGT 


130$ 


MOV 


COUNT, RO 


MOV 


4T17WF0.'UA,R1 


JSR 


PC.T17WFIF 


MOV 


4T17PK2.R4 


MOV 


R4,TSDBCR5) 



WRITE FIFO 



FAILED TO SET 




TRAP 


C$ERDF 


.UORD 


618 


.WORD 


T174SSR 


.WORD 


PKTSSR 


LAG 




FLAG SET 




TRAP 


C$CLP1 



SET FATAL ERROR F 
LOOP ON ERROR, IF 



CLEAR EXPD BUFFER 

EXPD WRITE FIFO DATA BUFFER 

TEST PATTERN SIZE 

INCREMENT PATTERN THIS TIME THRU? 

BR IF NO 

INCREMENT TEST PATTERN 

STORE INCREMENT TEST BYTE 

SET NEXT PATTERN 

DONE? 

BR IF NO 

DECREMENT 

BR IF NO 

DECREMENT 



PATTERN THIS TIME THRU? 

TEST PATTERN 

BYTE 



STORE DECREMENT TEST 

SET NEXT PATTERN 

DONE? 

BR IF NO 

TSTBLK PATTERNS THIS 



TIME THRU? 



BR IF 
FLOAT 
STORF 
DONE? 
BR IF 



NO 

V S/O'S ETC. TEST 

A TSTBLK BYTE 

NO 



TABLE 



FIFO BYTE COLNT 

FIFO WRITE DATA ADDRESS 

SETUP T17PK2 FOR WRITE FIFO 

GET WRITE SUBSYSTEM COMMAND PACKET 

SET THE PACKET ADDRESS TO EXECUTE 



113 



£- 
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2690 


042632 


004737 


016336 


2691 


042636 






2692 


042652 


103407 




2693 


042654 


010001 




2694 


042656 






2695 


042656 








042656 


104455 






042660 


001153 






042662 


047056 






042664 


012046 




2696 


042666 


005237 


002222 


2697 


042672 








042672 


104406 




2698 








2699 








2700 


042674 


004737 


050004 


2701 


042700 


012704 


050370 


2702 


042704 


010465 


000000 


2703 


042710 


004737 


016336 


2704 


042714 






2705 


042730 


103407 




2706 


042732 


010001 




2707 


042734 






2708 


042734 








042734 


104455 






042736 


001154 






042740 


046746 






042742 


012046 




2709 


042744 


005237 


002222 


2710 


042750 








042750 


104406 




2711 








2712 








2713 


042752 


004737 


050166 


2714 


042756 


012701 


046422 


2715 


042762 


012702 


050262 


2716 


042766 


012221 




2717 


042770 


011211 




2718 


042772 


052711 


000020 


2719 


042776 


052711 


000040 


2720 


043002 


042711 


000200 


2721 


043006 


042711 


000100 


2722 








2723 








2724 


043012 


0050C0 




2725 


043014 


012701 


050242 


2726 


043020 


012702 


046402 


2727 


043024 


012703 


000024 


2728 


043030 


004737 


011500 


2729 


043034 






2730 


043044 


103404 




2731 


04 3046 






2732 


043046 








043046 


104456 






043050 


001155 






043052 


047343 






043054 


012350 





142$ 



JSR PC.CHKTSSR 

FORCERROR 142$ 

BCS 150$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO. T175SSR, PKTSSR 



SEQ 151 



I WAIT FOR SSR TO SET 

jSaOFORCE ERROR IF FORCER- 1 
,BR IF CARR V SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TC '*ET 



150$ 



INC 
CKLOOP 



FATFLG 



TRAP 


C$ERDF 


. iJORD 


619 


.WORD 


T175SSR 


.WORD 


PKTSSR 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



157$; 



Do a Write Subsystem READ STATUS 

JSR PC.T17SR0 

MOV 4T17PK2.R4 

MOV R4.TSDBCR5) 

JSR PCCHKTSSR 

FORCERROR 157$ 

BCS 160$ 

MOV R0.R1 

NEXT ERRNO 

ERRDF ERRNO , T173SSR , PKTSSR 



j SETUP PACKET FOR READ STATUS 
;GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

jSSOFORCE ERROR IF F0RCER=1 
jBR IF CARRY SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WOftD 


620 


.WORD 


T173SSR 


.WORD 


PKTSSR 



160$: 



162$ 



INC 


FATFLG 


j SET FATAL ERROR FLAG 




CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


Set WORDS 0-7 of expd message 


buffer ■ to recv since not test! 


ng 


JSR 


PC.T17SETEXP 


iSEV WORDS 0-7 EXPD-RECV 




MOV 


*T17EXSTA,R1 


{GET EXPECTED READ STATUS 




MOV 


*T17BFSTA.R2 


iGF.T RECV READ STATUS 




MOV 


(R2)*.(R1)* 


»SET EXPD WORD 08 - RECV TEMP 




MOV 


(R2),(R1) 


j SET EXPD WORD *9 - RECV TEMP 




BIS 


*S2.INRDY,(R1) 


j SET EXP INPUT READY- 1 




BIS 


*S2.0UTRDY.(R1) 


;SET EXP OUTPUT READY- 1 




BIC 


*S2«DIM,CR1) 


j SET EXP DATA IN MISS - 




BIC 


♦S2,ILW,(R1) 


j SET EXP LAST WORD (ILU)-O 




IF Inpu 


t Ready NOT-1 then Print Error 




If Output Ready NOT-1 or Data 


in Miss NOT-O Then Print Error 




CLR 


RO 


j HIGH RECV ADDRESS FOR CKMSG2 




MOV 


0T17BFR,R1 


lLOW RECV ADDRESS FOR CKMSG2 




MOV 


*T17EXP,R2 


,EXPD ADDRESS 




MOV 


020., R3 


tNUMBER OF BYTES TO COMPARE 




JSR 


PC.CKMSG2 


j EXPD EQUAL RECV? 




FORCERROR 162$,N0TSSR 


jSQO 




BCS 


170$ 


iBR IF YES 




NEXT.ERRNO 






ERRHRD 


ERRNO. T173CMP.MSGSTAT 


;REPORT ERROR 








TRAP 


C$ERHRD 






.WORD 


621 






.WORD 


T173CMF 






.WORD 


MSGSfAT 



J12 



TSV5 - HARDWARE. TESTS MACRO M1113 06-FEB-84 17:14 
TEST 6: SUBTEST 3; FIFO WRITE MULTIPLE BYTES TEST 



2733 

2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 



2746 

2747 

2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 



2 760 

2761 

2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 



2/72 

2773 



043056 
043056 



043060 
043064 
043070 
043074 
04-.100 
043104 
043120 
043122 
043124 
043124 
043124 
043126 
043130 
043132 
043134 
043140 
043140 



043142 
043144 
043150 
043154 
043160 
043164 
043174 
043176 
043176 
043202 
043202 
043204 
043206 
043210 



043214 
043220 
043224 
04 3230 
043234 
043250 
043252 
043254 
043254 
0432S4 
043256 
043260 
04 3262 
043264 
043270 
043270 



104406 



013700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001156 
04 7122 
012046 
005237 

104406 



005000 
012702 
012701 
013703 
004737 

103406 

013701 

104456 
001157 
047512 
012170 



043212 104406 



004737 
012704 
010465 
004 737 

103407 
010001 



104455 
001160 
046746 
012046 
005237 

104406 



170$: CKLOOP 



002310 
050126 
050370 
000000 
016336 



172$; 



Do Write Subsystem READ FIFO 

MOV COUNT, RO 

JSR PC.T17RFIF 

MOV OT17PK2.R4 

MOV P4,TSDB(R5) 

JSR PC, CHKTSSR 

FORCERROR 172$ 

BCS 180$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T176SSR , PKTSSR 



002222 



180$: 



INC 
CKLOOP 



FATFLG 



046524 
050262 
002310 
011500 



002310 



192$: 



If Data read from FIFO NOT- 

CLR RO 

MCV #T17WFDATA.R2 

MOV *T17BFSTA,R1 

MOV COUNT, R3 

JSR PC.CKMSG2 

F0RCERRC3 192$,N0TSSR 

BCS 200$ 

NEXT.ERRNO 

MOV COUNT, Rl 

ERRHRD ERRNO , T 175CMP , F IFEXP 



200$: CKLOOP 



SEQ 152 



I LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



;SET READ BYTE COUNT 

{SETUP T17PK2 FOR READ FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

{SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

jQSOFORCE ERROR IF F0RCER*1 
,BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 





TRAP 


C$ERDF 




.WORD 


622 




.WORD 


T176SSR 




.WORD 


PKTSSR 


tSET FATAL ERROR FLAG 






;LO0P ON ERROR, IF FLAG 


SET 






TRAP 


C$CLP1 



to Data sent Then Print Error 

t HIGH RECV ADDRESS Fu? CKMSG2 

{GET EXPECTED ADDRESS FOR CKMSG? 

iGET RECEIVED ADDRESS FOR CKMSG2 

{NUMBER OF BYTES TO COMPARE 

jEXPD EQUAL RECV? 

(830 

{BR IF YES 



{GET BYTE COUNT 




{REPORT ERROR 




TRAP 


C1ERHRD 


.WORD 


623 


.WORD 


T175CMP 


.WORD 


FIFEXP 


{LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLPl 



050004 
050370 
000000 
016336 



Dc a 


Write 


Subsystem 
.T17SRD 


JSR 


PC, 


MOV 


0T17PK2.R4 


MOV 


R4, 


>TSDB(R5) 


JSR 


PC, 


, CHKTSSR 


FORCERROR 


212$ 


BCS 


220$ 


MOV 


RO, 


,R1 


NEXT 


.ERRNO 





READ STATUS 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iSQUFORCE ERROR IF FORCER* 1 
iBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



212$ 



ERRDF ERRNO , T 1 73SSR , PK T SSR 



{DEVICE FATAL SSR 



002222 



220$ 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 

.WORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 

TRAP 



C$ERDF 
624 

T173SSR 
PKTSSR 



C$CLP1 



K12 



TSV5 - HARDWARE TESTS MACRO M1U3 06-FEB 84 1.7: 14 
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SEQ 153 



2774 
2775 
2776 
2777 
2778 
2770 
2780 
2781 
2 782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 



2795 

2796 
2797 
2798 
2799 
2800 
2A01 
2802 
2803 
2804 
2805 
2806 



2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2318 
2819 
2820 
2821 
2822 
2823 



043272 
043276 
043302 
043306 
043310 
043312 
043316 
043322 
043326 



043332 
043334 
043340 
043344 
043350 
04335* 
043364 
043366 
043366 
043366 
043370 
043372 
043374 
043376 
043376 
043400 
043410 
043414 
043422 
043424 
045430 
043434 
043442 
043444 
043450 
043450 
043450 
043450 

043452 
043456 
043460 
043464 



004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
042711 



005000 
012701 
012702 
012703 
004737 

103404 



104456 
001161 
047427 
012350 

104406 

005237 
023727 
101002 
000137 
005237 
023727 
101002 
000137 



104403 

005737 
001402 
004737 



050166 
046422 
050262 



000020 
000040 
000200 
000100 



050242 
046402 
000024 
011500 



002310 
002310 

042420 
002314 
002314 

042412 



002222 
017202 



Set WORDS 0-7 of expd message buffe~ ■ to recv since not testing 



JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV OT17BFSTA.R2 

MOV CR2)t,(Rl)* 

MOV CR2),CR1) 

BIS 0S2.INRDY.CR1) 

BIC OS2.0UTRDY.CR1) 

BIC 0S2.DIM.CRi;j 

BIC *S2.ILW.CR1> 



i SET WORDS 0-7 EXPD-RECV 
{GET EXPECTED READ STATUS 
jGET RECV READ STATUS 
I SET EXPD WORD 08 - RECV TEMP 
j SET EXPD WORD 09 - RECV TEMP 
tSEl EXP INPUT READY- 1 
j SET EXP OUTPUT READY- 
{SET EXP DATA IN MISS - 
j SET EXP LAST WORD CILW)-0 



If Input Ready NOT-1 then Print Error 

If Output Ready NOT-0 or Data in Miss NOT-0 Then Print Error 



CLR 

MOV 
MOV 
MOV 
JSR 



RO 

0T17BFR.R1 
OT17EXP.R2 
020., R3 
PC.CKMSG2 



232$,N0TSSR 



232$ t 



FORCERROR 

BCS 240* 

NEXT.ERRNO 

ERRHRD ERRN0.T174CMP,MSGSTAT 



240$; CKLOOP 



000077 



000003 



250$ j 



255$; 



FORCEXIT 25 


INC 


COUNT 


CMP 


COUNT, 077 


BHI 


2501 


JMP 


100$ 


INC 


TSTFLAG 


CMP 


TS1FLAG.03 


BHI 


255$ 


JMP 


95$ 



ENDSU6 



I HIGH RECV ADDRESS FOR CKMSG2 

{LOW RECV ADDRESS FOR CKMSG2 

;EXPD ADDRESS 

; NUMBER OF BYTES TO COMPARE 

:EXPD EQUAL RECV? 

tSSO 

{BR IF YES 

{REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

sBSO 

jGET NEXT BYTE COUNT 

{DONE TO 77 

j BR TF YES 

{DO ANOTHdR BYTE COUNT 

f GET NEXT TEST PATTERN CODE 

{DONE INCDEC.TSTBLK PATTERNS? 

;BR IF YES 

I 00 ANOTHER TEST PATTERN 



;//////////// END SUBTEST ////////// 

L 10061; 

TRAP C$ESUB 



C$ERHRD 
625 

T174CMP 
MSGSTAT 

C$CLP1 



260$; 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PC.CKDROP 



jANY FATAL ERRORS ? 

{BRANCH IF N01 

{TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 4; FIFO Verify ILW Status 

TEST 6; SUBTEST 4< 

SUBTEST DESCRIPTION: 

This subtest verifies that reading the FIFO when it is 
empty causes the Last Word (ILW) status to assert, 



L12 



TSV5 - HARDWARE TESTS MACRO Mil 13 06-FEB-84 17s Id 
TEST 6; SUBTEST 4: FIFO VERIFY ILW STATUS 



SEQ 154 



2824 
2B25 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2635 
2836 
28-17 



2838 
2839 
2840 
2841 
2842 
2843 
2844 



2845 
2846 
284 7 
2848 
2849 
2850 
2851 
2852 
2853 



2854 
2855 

2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 



J 



043464 
043464 
043464 



043466 
043466 
043472 
043474 
043476 
043476 
043500 
043502 
043504 

043506 
043512 
043516 
043522 
043536 
043540 
043542 
043542 
043542 
043544 
043546 
043550 
043552 
043556 
043556 



043560 
043564 
043570 
043574 
043600 
043604 
043620 
04 3622 
043624 
04 3624 
043624 
043626 



104402 



00473/ 
103405 
010001 

104455 
001161 
003652 
012034 

005037 
012704 
004737 

103407 
010001 



104455 
001162 
046645 
012046 
005237 

104406 



012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001163 



TEST STEPS; 



BEGIN 



END 



Write to TSSR to soft initialize 

Do Write Subsystem READ fieq w ',th byte count equal to 1 

Do a Write Subsystem READ STATUS 

If Input Ready N0T«1 Then Print Error 

If Output Ready NOT-O Then Print Ei ror 

If Data In Miss NOT-0 Then Print Error 

If Last Word (ILW) NOT-1 Then Print Error 



015774 



5$; 



002222 
050220 
010662 



10$ 



42$ 



00222? 



000001 
050126 
050370 
000000 
016336 



50$ 



142$; 



BGNSU6 



{//////////// BEGIN SUBTEST ////////// 

T6,4; 

TRAP C$BSU8 



Write to TSSR reojster to soft initialize the controller 



JSR PCSOFINIT 

BCS 10$ 

MOV R0,R1 

ERRDF ERRNO, SFIERR , SFIMSG 



Do a WRITE CHARACTERISTICS 

CLR FATFLG 

MOV 0T17PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T17SSR,PKTSSR 



to 



;WRITE TO TSSR TO SOFT INITIALIZE 

iBR IF SOFT INIT OKAY 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL DURING INIT 

TRAP 
.WORD 
,WOf<D 
.WORD 
setup a message buffer 

j CLEAR FATAL ERROR FLAG 

j GET THE ADDRESS OF COMMAND PACKET 

}D0 WRITE CHARACTERISTICS COMMAND 

iSSOFORCE ERROR IF FORCER -1 

5 BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



C$ERDF 
625 

SFIERR 
SFIMSG 



INC 


FATFLG 




CKLOOP 






Do Wri 


te Subsystem READ 


FIFO 


MOV 


41, PC 




JSR 


PC, T17RFIF 




MOV 


0T17PK2.R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




FORCERROR 142$ 




BCS 


150$ 




MOV 


R0.R1 




NEXT.ERRNO 




ERRDF 


ERRNO, T176SSR.PKTSSR 



TRAP 


C$ERDF 


.WORD 


626 


.WORD 


T17SSR 


.WORD 


PKTSSR 


j SET FATAL ERROR FLAG 




{LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 



with byte count equal to 1 
{SET READ BYTE COUNT 
I SETUP T17PK2 FOR READ FIFO 
tGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iBSOFORCE ERROR IF FORCER- 1 
{BR IF CARRY SET CGOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 

TRAP CU.RDF 
.WORD 62 7 



M12 



TSV5 - HARDWARE TEST 1 
TEST 6: SUBTEST 4: I 



MAQRQ M1113 Q6-FEB-84 17:14 
IFQ VERIFY ILW STATUS 



SEQ 155 



2868 
2869 

2870 
2871 
2872 
2673 
2874 
2875 
2876 
2877 
2678 
28 79 
2880 



2881 
2882 

2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
28^3 
2894 
2895 
2696 
2897 
2898 
2899 
2900 
2901 
2902 
290 5 
2904 



2905 

2906 
2907 



2908 
2909 



043630 
043632 
043634 
043640 
043640 



04364? 
043646 
043652 
043656 
043662 
043676 
043700 
04 3702 
043702 
043702 
043704 
043706 
043710 
043712 
043716 
043716 

043720 
043724 
043730 
043734 
04 3736 
043740 
043744 
043750 
043754 



043760 
043762 
043766 
043 772 
043776 
044002 
0*4012 
044014 
044014 
044014 
044016 
044020 

X4022 
044024 
044024 

044026 
044026 
044026 

044030 



04.122 
012046 
005237 

104406 



004737 
012704 
110465 
004737 

103407 
010001 



104455 
001164 
046746 
012046 
005237 

104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
052711 



005000 
012701 
012 702 
012703 
004737 

103404 



104456 
001165 
047566 
012350 

104406 



104403 
005737 



002222 



050004 
050370 
000000 
016336 



002222 



050166 
046422 
050262 



000020 
000040 
000200 
000100 



050242 
046402 
000024 
011500 



150$: 



162$: 



170$: 



172$: 



180$: 



INC 


KA1 


rFLG 




CKLOOP 








Do a Write 


Subsystem 
,T17SRD 


READ ST, 


JSR 


PC, 




MOV 


0T17PK2.R4 




MOV 


R4, 


.TSDBCR5) 




JSR 


PC, 


>CHKTSSR 




FORCERROR 


162$ 




BCS 


170$ 




MOV 


RO, 


,Rl 




NEXT.tl 


WNO 






ERRDF 


ERRN0.T173SSR 


I.PKTSSR 



jSET FMTAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 

SET 
TRAP 



T176SSR 
PKTSSR 



C$CLP1 



j SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET TH;' PACKET ADDRESS TO EXECUTE 
j WAIT FOR SSR TO SET 

jSSOFORCE ERROR If FORCER "1 
jBR IF CARRY SET (GOOD RF.TURN) 
j SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
. WOR! "; 
.WORD 
.WORD 



C$ERDF 
628 

T173SSR 
PKTSSR 



;SET FATAL ERROR FLAG 
jLOOP ON ERROR , IF FLAG 



Set WORDS 0-7 of expd message bu 

JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV *T17BFSTA,R2 

MOV (R2)*,(R1)» 

MOV (R2),(R1) 

BIS *S2,IN«DY.CHl) 

BIC *S2.0UTRDY 8 (Rl) 

BIC ♦S2.0IM.CR1) 

BIS 0S2.ILW.CRi) 

IF Input Ready NOT-1 then Print 

If Output Ready NOT-0 or Data in 

If Last Word (ILVJ) NOT-1 Then Pr 

CLR RO 

MOV 0T17BFR.R1 

MOV 0T17EXP.R2 

MOV 020. ,R3 

JSR PC.CKMSG2 

FORCERROR 172*,N0TSSR 

BCS 180$ 

NEXT.ERRNO 

ERRHRD ERRNO > T 1 76CMP . MSGSTAT 



CKLOOP 



ffer 

i SET 
{GET 
;GET 
jSET 
{SET 
{SET 
{SET 
t SE T 
;SET 



SET 

TRAP 



C$CLP1 



WORD:> 



to recv since not testing 
5 0-7 EXPO-RECV 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPD WORD *8 • RECV TEMP 
EXPD WORD 09 - RECV TEMP 
EXP INPUT READY- 1 
EXP OUTPUT READY- 
EXP DATA IN MISS - 
EXP LAST WORD (ILUO-1 



002222 



ENDSUB 



TST 



FATFLG 



Error 
Miss NOT-O Then Print Error 
int Error 

{HIGH RECV ADDRESS FOR CKMSG2 

{LOW RECV ADDRESS FOR CKMSG2 

{EXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 

i EXPD EQUAL RECV? 

iSSO 

{OR IF YES 

j REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



\//////////// END SUBTEST //////'/' 

L 10062: 

TRAP CSESUB 

{ANY FATAL ERRORS ? 



TRAP 


C$ERHRD 


.WORD 


629 


.WORD 


T176CMP 


.WORD 


MSGSTAT 


SET 




TRAP 


CiCLPl 



N12 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 
TEST 6: SUBTEST 4; FIFO VERIFY ILW STATUS 



SEQ 156 



2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

292? 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

294? 

2941 

2942 

2943 

294* 

2945 

2946 

294 7 

2948 

2949 

2950 

2951 

2952 

2953 



2954 
2955 
2956 
295 7 
2958 
2959 
2960 



041034 
044036 
044042 



001402 

004737 017202 



BEQ 
JSR 



260$: 



260$ 
PC.CKDROP 



{BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 5: FIFO Verify Input Ready 



TEST 6: SUBTEST 5; 
SUBTEST DESCRIPTION: 



044042 
044042 
044042 



044044 
044044 
044050 
044052 
044054 
044054 
•044056 
044060 
04406J 



This subtest verifies that writing 64, bytes into the FIFO 
without reading any out causes the Input Ready status to 
negate. The Subtest then verfiies that writing a 65th byte 
Into the FIFO causes the Data In hiss status to assert. 
Next it is verified that thj original 64 bytes can be read 
out correctly and that the data has not been corrupted. 



TEST STEPS: 



BEGIN 



Write to TSSR to soft Initialize 

Do a WRITE CHARACTERISTICS to setup a message Suffer 

Do a Write Subsystem WRITE NPR to set tape direction out 

Do a Write Subsystem WRITE FIFO 64. bvtes incrementing pattern 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-O Then Print Error 

If Output Ready NOT-1 Then Print Error 

If Data In Miss NOT-O Then Print Error 

Do a Write Subsystem WRITE FIFO 1 byte for a total of 65. written 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-0 The • Print Error 

If Output Ready NOT-1 Ther Print Error 

If Data In Miss NOT-1 Then Print Error 

Do Write Subsystem READ FIFO 

If Data read from FIFO NOT- to Data sent 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-1 Then 2rint Error 

If Output Ready NOT-0 Then Print Error 

If Data In Miss N0T«1 Then Print Error 



Then Print Error 



END 



BGNSUB 



104402 



004737 
103405 
010001 

104455 
001165 

003652 
012054 



;//////////// BEGIN SUBTEST ////////// 

T6.5: 

TRAP CSBSUB 



0157 M 



5$: 



Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 10* 

MOV R0.R1 

ERRDF P3RN0 , SF IERR . SFIMSG 



WRITE TO TSSR TO SOFT INITIALIZE 

BR IF SOFT INIT 0KA1 

SAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP CJfcRDF 
.WORD 629 
.WORD Sf IE PR 
.WORD SKIMSG 



l-US 



TSV5 HAhOWARE TESTS MACRO M1113 06 -FEB-B4 
TEST 6j SUBTEST 5j FIFO VERIFY INPUT READY 



2<K>1 
2962 

2<*>3 
2964 

2965 
2966 
2967 
2968 
2969 



29 70 

29/1 

29 72 

2973 

2974 
2975 
2976 
2977 
2976 
2979 
2980 
296" 1 
2982 
2983 



29ft4 
2985 

2986 

298 7 

2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 

299 7 
2998 
2999 
3000 
3001 
3002 

300 ^ 
3004 
3005 
3QQ6. 



044064 

044070 
044074 
044100 
044114 
044116 
044120 
044120 
044120 
044122 
044124 
044126 
044130 
044134 
044134 



044136 
044142 
044146 
044152 
044156 
044162 
044176 
044200 
O44202 
044202 
044202 
044204 
O44206 
044210 
044212 
044216 
044216 



044220 
044226 
044232 
044236 
044240 
044242 
044244 
044246 
044250 
044254 
044260 
044264 
044270 
044274 
044 500 
044314 
044516 
044320 
044320 
0445*0 



005037 
012704 
OC4737 

103407 
010001 



104455 
001166 
046645 
012046 
005237 

104406 



012700 
004737 
012704 
010465 

004737 

10340/ 
010001 



104455 
001167 
047013 
012046 
005237 

104406 



012737 
012701 
012702 
005000 
110021 
005200 
005302 
003374 
013700 
012701 
004757 
012704 
010465 
004737 

103407 
010001 



iQ44to 



002222 
050220 
010662 



00 



^^^^ 



OOOIOO 
050046 

0503 70 
000000 
016336 



002 510 
046524 
050072 

0503 70 
OOOOOO 
016336 



lOli 



421 ! 



50«{ 



iOOtj 



102$ j 



002222 



000100 002310 

046524 

000100 



105U 



HOli 



14*?* i 



I7tl4 



Do a WRITE CHARACTERISTICS to 

CLR TATrLG 

MOV ♦T17PACKET.R4 

JSR PC^WRTCHR 

FORCERROR 42* 

BCS 501 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T 1 7SSR , PK T SSR 



SEQ 157 



aatup a ma • flag* buffer 
I CLEAR FATAL ERROR FLAG 
I GET THE ADDRESS OF COMMAND PACKET 
I DO WRITE CHARACTERISTICS COMMAND 

iWJDFORCE ERROR IF FORCER »i 
|BR IF CARRY SET CGOOO RETURN) 
iSAVE CONTENTS Of TSSR 



lOEVICE FATAL SSR 



INC 
CKt.OOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



, SET FATAL ERROR FLAG 
l LOOP ON ERROR, IF FLAG 



SET 
TRAP 



ClfRDF 
630 
T17SSR 
PKTS5R 



CJCLP1 



Do a Writ* Subayatam 
MOV ♦NP.OUT.RO 

JSR PC,T17S^R 

MOV #T17PK2.R4 

MOV R4.TSD6CR5) 

JSR PC.CHKTSSR 

1021 



FORCERROR 

BCS 1051 

MOV R0.R1 

NEXT ERRNO 

ERRDF ERRNO . T 1 74SSR . PK T SSR 



WRITE NPR to aat tapa diraction oot 
iSET TAPE DIRECTION OUT 
i SETUP T17PK2 FOR WRITE f#>R 
iGET WRITE SUBSYSTEM COMMANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

ittfiOFORCE ERROR IF FQRCER-1 
iBR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 



iDtVlCE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



INC 


FATFLG 


CKLOOP 




Do a Wr 


♦ ta Subiyatam 


MOV 


♦64. .COUNT 


MOV 


*T17gFDATA t Rl 


hOV 


♦64 , , R2 


CLR 


RO 


MOVB 


RO.(Rl). 


INC 


RO 


DEC 


R2 


BGT 


1101 


MOV 


COUNT. RO 


MOV 


♦ U7WFDATA.R1 


JSR 


pc.ti ryfv 


MOV 


♦T17PK2.R4 


MOV 


R4.TSD8CR5) 


JSR 


; j c.chktssr 


FORCERROR 1421 


BCS 


1501 


MOV 


R0.R1 


NEXT, ERRNO 


ERRDF 


ERRNO* T1/&ASR 



,SFT FATAL ERROR Fl.AG 
lLOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 
631 

T174SSR 



CtCLPl 



WRITE * IFu 64, bytaa incramant i r»g pattarn 
jWRITE 64 BYTES 
lEXPD WRITE FIFO DATA BUFFER 
i TEST PATTERN SUE 
I INCREMENT TEST PATTERN 
iSTORE INCREMENT TEST BYTE 
iSET NEXT PATTERN 
■ DONE? 
iBR ir NO 
jEIFC BYTE COUNT 
I^IFO WRITE DATA ADORESS 
l SETUP T17PK2 FOR WRITE F[FO 
iGET WRITE SUBSYSTEM COMMANO PACKl T 
,SET THE PACKET ADORESS TO FXfCUTE 
jWAIT FOR SSR TO SET 

lB«O r 0RCE ERROR IF FORCER-l 
,BR IF CARRt SET (GOOD RETURNS 
jSAVF CONTENTS O* TSSR 



lOEVICE FATAL &SR 



BAILED TO SET 

TRAP C*EKU>< 






c:i 



5 



TSVS 

TEST 



HARDWARE TESTS MACRO M1113 06 FEB-84 17} 14 
6j SUBTEST 5: FIFO VERIFY INPUT READY 



SEQ 158 



3007 
3008 

3009 
30\0 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
30*2 



30c? 3 
3024 

302^ 
3026 
3027 
3028 
3029 
3030 
J031 
3032 
3033 
3034 
303S 
;036 
3037 
3038 
3039 
3040 
3041 
>042 



304 3 

3044 
304^ 
3046 

304 7 
3048 
5049 



044322 
044324 
044326 

044330 
044334 
044334 



044336 
044342 
044 346 
044352 
044 356 
044372 
044374 
044376 

0443 76 
044376 
044400 
044402 
044404 
044406 
044412 
044412 

044414 
044420 
044424 
044430 

0444 32 
044434 
044440 
044444 
044450 
044452 
044456 
0444t>2 
044466 
044472 
044502 
044504 
044504 
044504 
044506 
044510 
044512 
044514 
044514 



044516 
044522 
Q44b26 



0011/0 
04 7056 
012046 
005237 

104406 



0O4f37 
012704 
010465 
0O4 737 

103407 
010001 



104455 
001171 
046746 
012046 
005237 

104406 

0O4737 
012701 
012702 
012221 
011211 
0427U 
052711 
042711 
005000 
012701 
012702 
012703 
004737 

103404 



104456 

00117? 
04 734 3 
012350 

104406 



012/00 
012/01 
QQ4 73? 



002222 



050004 
050370 
000000 
016336 



002222 



050166 
046422 
050262 



000020 
000040 
000200 

050242 
046402 
000024 
OliSOO 



000001 
046524 
0500 Id 



150$ j 



157$; 



INC 
CKLOOP 



FATFLG 



iSET FATAL ERROR FLAG 
I LOOP ON ERROR* IF FLAG 



.WORO 
.WORD 
.WORD 

SET 

TRAP 



652 

T175SSR 

PKTSSR 



CJCLP1 



Do a Writ* Sufcayatam READ STATUS 
If Input Raady NOT-0 Than 
If Output Raady NOT-1 Th«n 
If Data In Mlaa NOT-0 Than 



NOT-0 
NOT-1 
NOT-0 
PC.T17SP0 
•T17PK2.R4 
R4.TSD6CR5) 
PC.CHKTSSR 

1571 



JSR 

MOV 

MOV 

JSR 

F0RC6RR0R 

BCS 1601 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 1 73SSR , PK TSSR 



Print Error 

Print Error 

Print Error 

iSETUP PACKET FOR READ STATUS 
iGF.T WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSflDFORCE ERROR IF FQRCER-1 
iBR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 



, DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
633 

U73SSR 
PK'iSSR 



INC 




FATFLG 


jSET 1 


160$ i CKLOOP 




(LOOP 


1 Sat 


WORDS / of %-xpd maaaaoa 


buf far 


JSR 




PC.T17SETEXP 


j SET 1 


MOV 




♦ Tl7EXSTA,m 


iGET I 


MOV 




#T17BFSTA,R2 


iGET i 


MOV 




(R2)».(RD* 


iSET 1 


MOV 




(R2).CRn 


iSET 1 


BIC 




•S2.INR0t,(Ri) 


jSET 1 


BIS 




#S2.00TR0Y,lRl) 


j SET 1 


BIC 




♦S2.DIM l (Ri: 


j SET 1 


CLR 




RO 


IHIGH 


MOV 




♦T17BFR.R1 


iLOW 1 


MOV 




♦T17EXP.R2 


lEXPD 


MOV 




♦20. ,R5 


iNUMBl 


JSR 




PCCKMSG2 


j EXPO 


FORCERROR 162I.N0TSSR 


iSSO 


BCS 




1701 


j BR H 



FATAL £RROR FLAG 
ON ERROR, IF FLAG 



SET 
TRAP 



CICLP1 



to racv ainca not tatting 
WORDS 7 EXPD-RECV 
EXPECTED HEAD STATUS 
KECV READ STATUS 
EXPO WORO #8 • RECV TEMP 
EXPO WORO #9 - RECV TEMP 
EXP INPUT READY- 
EXP OUTPUT READY* 1 
EXP DATA IN MISS - 

RECV AOORESS FOR CKMSG2 
RECV ADORE SS FOR CKMSG2 

ADDRESS 
ER Of BYTES TO COMPARE 

EQUAl RECV? 

F lES 



NEXT .ERRNO 
162ft ERRHRD ERRNO, TW5CMP, MSOST AT 



170$ j CKLOOP 



Do a WrJta Sutoayatam WRITE FIFO 

MOV #1, RO 

M()V *U 7wf DATA t Rl 



t REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORO 

.WORD 

SE ! 

TRAP 



CIERHRD 
6 54 

Tl 73CMP 
MSGSTAT 



ClCLP'i 



1 byta for a total of 65, nrltt^n 

i> IFO BYTE COUNT 

if if WRITE DATA ADOR^ii 

iSETUP T17PKJ FOR WRITE FIFO 



\m ^mwwhFomwwuMm-" 



17: 14 



015 



SEQ 159 



5050 


044532 


C 12 704 


050370 


3051 


044536 


010465 


000000 


305c? 


044542 


004737 


016336 


3053 


044546 






3054 


044562 


103407 




3055 


044564 


010001 




3056 


044566 






3057 


044566 








044566 


104455 






044570 


001173 






044572 


04 7056 






044574 


012046 




3058 


044576 


005237 


002222 


3059 


044602 








044602 


104406 




3060 








3061 








306 2 








3063 








3064 








3065 


044604 


004 737 


050004 


3066 


044610 


012704 


0503 70 


306 7 


044614 


010465 


000000 


3068 


044620 


004737 


016336 


3069 


044624 






30 ?0 


044640 


105407 




3071 


044642 


010001 




3072 


044644 






3073 


044644 








044644 


104455 






044646 


001174 






044650 


046746 






044652 


012046 




3074 


044654 


005237 


002222 


3075 


044660 








044660 


104406 




3076 








30 7 7 


044662 


004737 


050166 


30 78 


044666 


012701 


046422 


3079 


044672 


012702 


050262 


3080 


0446 76 


012221 




3081 


044700 


011211 




3082 


044 702 


042711 


0OO020 


3083 


044 706 


052711 


000040 


3084 


044712 


052711 


000200 


3085 


044716 


005000 




3086 


044720 


012701 


050242 


3087 


044 724 


012702 


046402 


3088 


044730 


012703 


000024 


3089 


044 734 


004737 


011500 


3090 


044740 






3091 


044 750 


103404 




309? 


044 752 






3093 


044 752 








044 752 


104456 






044 7 54 


001175 






044 756 


04 734 3 





W2$ j 



180$ ; 



187$: 



MOV 0T17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 172$ 

BCS 180$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T1/5SSR. PKTSSR 



jGET WRITE SUBSYSTEM COMMANO PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER- 1 
jBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



■DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIF.RDF 

635 

T175SSR 

PKTSSR 



CJCLP1 



Do a Writ* Subsystem READ STATUS 
If Input Rssdy NOT-0 Thsn 
If Output Rssdy NOT- I Thsn 
If Oato In Miss NOT-1 Then 



NOT 
NOT- 
NOT- 
PCT17SRD 
♦T17PK2.R4 
R4,TSDB(R5) 
PC.CHKTSSR 

187$ 



JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 190$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO.T173SSR, PKTSSR 



Print Error 
Print Error 
Print Error 

j SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
■WAIT FOR SSR TO SET 

l S«)FORCF ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
636 

T173SSR 
PKTSSR 





INC 




FATFLG 


iSET FATAL ERROR FLAG 




190$: 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 












TRAP 


C$CLP1 


a 


Sst 


WORDS 0-7 of enpd rocasaQS 


buf fsr • to rtcv sines not t€9t! 


ng 




JSR 




PC.T17SETEXP 


1 SET WORDS 7 EXPD-RECV 






MOV 




0Ti7f XSTA.R1 


»GET EXPECTED READ STATUS 






MOV 




OT17BFSTA.R2 


jGET RECV READ STATUS 






MOV 




CR2)».(R1)» 


i SET EXPO WORD »8 • RECV TEMP 






MOV 




(R2).(R1) 


j SET EXPO WORD #9 - RECV TEMP 






BIC 




*S2.INRDY,(Rl> 


jSET EXP INPUT READY- 






BIS 




«S2.0UTRDY.(R1) 


I SET EXP OUTPUT READY- 1 






BIS 




OS2.0IM.CR1) 


iSET EXP DATA IN MISS ■ 1 






CLR 




RO 


;HIGH RECV AOORESS FOR CKMSG2 






MOV 




*T17BFR,R1 


lLOW RECV ADDRESS FOR CKMSG2 






MOV 




0T17EXP,R2 


,EXPD ADDRESS 






MOV 




930, ,R5 


iNUMBER Of BYTES TU COMPARE 






JSR 




PC.CKMSG2 


lEXPO EQUAL RECV? 






FORCERROR 192$,N0TSSR 


i960 






BCS 




2001 


jBR U YES 






NEXT 


.fRRNO 






192$: 


ERRHRD 


ERRN0,T175CMP I MSGSTAT 


I REPORT ERROR 










• 


TRAP 


C*tRHRD 










. WORD 


63.* 










.WURD 


T173CMP 



H 1 6 
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SEQ 160 





044 760 


012350 




3094 


044 762 








044762 


104406 




3095 








3096 


044 764 


013700 


002310 


3097 


044770 


004737 


050126 


3098 


044774 


012704 


050370 


3099 


045000 


010465 


000000 


3100 


045004 


004 737 


016336 


3101 


045010 






3102 


045024 


103407 




3103 


045026 


010001 




3104 


045030 






3105 


045030 








045030 


104455 






045032 


001176 






045034 


047122 






045036 


012046 




3106 


045040 


005237 


002222 


3107 


045044 








045044 


104406 




3108 








3109 








3110 


045046 


005000 




3111 


045050 


012702 


046524 


3112 


045054 


012701 


050262 


3113 


045060 


013703 


002310 


3114 


045064 


004737 


011500 


3115 


045070 






3116 


045100 


103406 




3117 


045102 






3118 


045102 


013701 


002310 


3119 


045106 








045106 


104456 






045110 


001177 






045112 


047512 






045114 


012170 




3120 


045116 








045116 


104406 




3121 








3122 








3123 








3124 








3125 








3126 


045120 


004737 


050004 


3127 


045124 


012704 


0503 70 


3128 


045130 


010465 


000000 


3129 


045134 


004737 


016336 


3130 


045140 






3131 


045154 


103407 




3132 


045156 


010001 




3133 


045160 






3134 


045160 








045160 


104455 






045162 


001200 






045164 


046/46 






045166 


012046 





200$: 

J 



212$: 



220$; 



232$: 



240$: 



252$ t 



CKLOOP 

Do Write Subay«Jtem READ FIFO 

MOV COUNT, RO 

JSR PC.T17RFIF 

MOV *T17PK2,R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 212$ 

BCS 220$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.U76SSR. PKTSSR 



INC FATFLG 
CKLOOP 



IF Goto r«ad from FIFO NOT- to 

CLR RO 

MOV *T17WFDATA,R2 

MOV *T178FSTA,R1 

MOV COUNT ,R3 

JSR PC.CKMSG? 

FORCERROR 232$,N0TSSR 

BCS 240$ 

NEXT.ERRNO 

MOV COUNT, Rl 

ERRHRD ERRN0 I T175CMP,FIFEXP 



jLOOP ON ERROR, IF 



CKLOOP 



. WORD 
FLAG SET 
TRAP 



MSGSTAT 
C$CLP1 



I SET READ BYTE COUNT 

j SETUP T17PK2 FOR READ FIFO 

jGET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

j WAIT FOR SSR TO SET 

»OSDFORCE ERROR IF FORCER-1 
(BR IF CARRY SET (GOOD RETURN) 
l SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
■ WORD 



l SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



CiERDF 
638 

T176SSR 
PKTSSR 



SET 
TRAP 



C$CLP1 



Drta ««nt Then Print Error 
{HIGH RECV ADDRESS FOR CKMSG2 
iCET EXPECTED ADDRESS FOR CKMSG2 
iGET RECEIVED ADDRESS FOR CKMSG2 
i NUMBER OF BYTES TO COMPARE 
jEXPD EQUAL RECV? 
jS0O 
jBR IF YES 

jGET BYTE COUNT 
{REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 


C$ERHRD 


.WORD 


639 


.WORD 


T175CMP 


.WORD 


FIFEXP 


SET 




TRAP 


C$CLP1 



Do a Writ* Subsystem READ STATUS 

If Input Ready N0T»1 Then 

If Output Ready NOT-0 Then 

If Data In Mia* NOW Then 

JSR PC.T17SRD 

MOV #T17PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 252$ 

BCS 260$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T 1 73SSR , PKTSSR 



Pr in 
Pr\n 
Prln 

i 
i 
i 
J 

J 
J 



t Error 

t Error 

t Error 

SETUP PACKET FOR READ STATUS 

GET WRITE StJBSYSTEM COHMANO PACKE 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 

ifiWOFORCE ERROR IF FORCER- 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 



j OF VlCt FATAL SSR 



FAILED Kl SF T 




TRAP 


C$ERDF 


.WORD 


640 


.WORD 


M 73SSR 


.WORD 


PKTSSR 



r* 



O 
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3135 045170 


005237 


002222 


3136 045174 






045174 


104406 




3137 






3138 045176 


004 737 


050166 


3139 045202 


012701 


046422 


3140 045206 


012702 


050262 


3141 045212 


012221 




3142 045214 


011211 




3143 045216 


0527U 


000020 


3144 045222 


042711 


000040 


3145 045226 


052711 


000200 


3146 045232 


005000 




3147 045234 


012701 


050242 


3148 045240 


012702 


046402 


3149 045244 


012703 


000024 


3150 045250 


004737 


011500 


3151 045254 






3152 045264 


103404 




3153 045266 






3154 045266 






045266 


104456 




045270 


001201 




045272 


047427 




045274 


012350 




3155 045276 






045276 


104406 




3156 






3157 045300 






045300 






045300 


104403 




3158 






3159 045302 


005737 


002222 


3160 045306 


001402 




3161 045310 


004737 


017202 


3162 045314 






3163 






3164 






3165 






3166 






3167 






3168 






3169 






31?0 






3171 






3172 






3173 






3174 






3175 






3176 






3177 






3178 






3179 






3180 






3181 






3182 






3183 







260$: 

J 



272$: 



300$: 



INC 
CKLOOP 



FATFLG 



SEQ 161 



,SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



Set WORDS 0-7 of expd message 

JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV 0T17BFSTA.R2 

MOV (R2)».(R1)» 

MOV (R2),(R1) 

BIS *S2.INRDY,(R1) 

BIC *S2.0UTRDY,(R1) 

BIS 0S2.DIM,(R1) 

CLR RO 

MOV 0T17BFR.R1 

MOV *T17EXP,R2 

MOV #20.. R3 

JSR PC,CKMSG2 

FORCERROR 272$.N0TSSR 

BCS 2801 

NEXT.ERRNO 

ERRHRD ERRN0.U74CMP.MSGSTAT 



buffer 
,SET 
jGET 
(GET 

I SET 
;SET 
jSET 
jSET 
jSET 



TEMP 
TEMP 



280$: CKLOOP 



EN0SU6 



SET 

TRAP C$CLP1 

■ to recv since not testing 

WORDS 0-7 EXPD-RECV 

EXPECTED READ STATUS 

RECV READ STATUS 

EXPD WORD #8 - RECV 

EXPD WORD #9 - RECV 

EXP INPUT READY- 1 

EXP OUTPUT READY- 

EXP DATA IN MISS - 1 
i HIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG.» 
,EXPD ADDRESS 

i NUMBER OF BYTES TO COMPARE 
{EXPD EQUAL RECV? 
j 880 
jBR IF YES 

; REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



l//////////// END SUBTEST ////////// 

L10063: 

TRAP C5ESUB 



TRAP 


CiERHRD 


.WORD 


641 


.WORD 


T174CMP 


.WORD 


MSGSTAT 


SET 




TRAP 


C$CLP1 



TST 


F/MFLG 


BEQ 


loot 


JSR 


PC.CKDROP 



♦ » 

TEST 



} ANY FATAL ERRORS ? 

{BRANCH IF NOT 

j TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset riFO Test 



6: SUBTEST 6: 



SUBTEST DESCRIPTION: 

This subtest verifies that the Reset FIFO function within 
the Write Miscellaneous Control 1 function initializes 
the FIFO to correct intlal status. The following steps 
are performed: 

1. Reset an already initialized p IFQ and check for 
proper status. 

2. Write a varying nu<nber of byt«*« (1 65,) into the 
FIFO and verify that after each block o f bytes is 
written the FIFO can be be r«set to it's initial 
state. 
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SEQ 162 



3184 

3i85 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
31.94 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 



3205 
3206 
3207 
3208 
3209 
3210 
3211 



3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 



3221 
3222 

3223 

3224 

3225 
3226 
322 7 
3228 
S229 



045314 
045314 
045314 



045316 
045316 
045322 
045324 
045326 
045326 
045330 
045332 
045334 

045336 
045342 
045346 
045352 
045366 
045370 
045372 
045372 
045372 
045374 
045376 
045400 
045402 
045406 
045406 

045410 
045414 
04 5420 
045424 
045430 
045444 



104402 



004737 
103405 
010001 

104455 
001201 
003652 
012034 

005037 
012704 
004737 

103407 
010001 



104455 
001202 
046645 
012046 
005237 

104406 

004 737 
012704 
010465 
004737 

103407 



{ TEST STEPS: 



BEGIN 



Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a messaoe buffer 



Do a Wr i te Subsystem 
Do a Write Subsystem 
If all Tape Statue 2 
signals N0T*0 Then 
Do a Write Subsystem 



Write Miac to Reset FIFO 
READ STATUS 
CICER.IFMK.IHER) 
Print Error 

NPR to set 



REPEAT FOR 
BEGIN 
Do 
Do 
Do 
If 



BYTE COUNT 



WRITE 
1 TO 65. 



flip-flop 

tope di rect ion out 



END 



a Write Subsystem 'WRITE FIFO with the current 
a Write Subsystem Write Mine to Reset FIFO 
a Write Subsystem READ STATUS 
all Tape Status 2 CICER.IFMK.IHER) flip-Flop 
signals N0T«0 Then Print Error 



byte count 



BGNSUB 



j//////////// BEGIN SUBTEST ////////// 

T6.6: 

TRAP CSBSU6 



015774 



5*: 



Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 10* 

MOV R0.R1 

ERRDF ERRNO, SFIERR . SFIMSG 



002222 
050220 
010662 



10$: 



42$: 



Do a WRITE CHARACTERI 

CLR FATFLG 

MOV 0T17PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO. T17SSR.PKTSSR 



(WRITE TO TSSR TO SOFT INITIALIZE 
{BR IF SOFT INIT OKAY 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
STICS to setup a messaye buffer 

{CLEAR FATAL ERROR FLAG 

{GET THE ADDRESS OF COMMANO PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

jSaDFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET CGOOO RETURN) 
{SAVE CONTENTS OF TSSR 



C$ERDF 

641 

SFIERR 

SFIMSG 



{DEVICE FATAL SSR 



002222 



050024 
0503 70 
000000 
016336 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



50$: 



INC 


FATFLG 


CKLOOP 






Do a Wr 


ite 


Subsystem 


JSR 


PC, 


T17RSFIF 


MOV 


0T17PK2.R4 


MOV 


R4, 


TS0BCR5) 


JSR 


PC, 


CHKTSSR 


FORCERROR 


62$ 


BCS 


70 5 





{SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG 



Write Misc 



SET 
TRAP 



CJERDF 
642 
T17SSR 
PKTSSR 



C$Cl PI 



to Reset FIFO 

{SETUP PKT FOR WRITE MISC RESET UFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{SUOFOfiCE ERROR IF FORCER-l 
{BR IF CARRY SET (GOOD RETURN) 
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SEQ 163 



3230 045446 


010001 




3231 045450 






323? 045450 






045450 


104455 




045452 


001203 




045454 


046702 




045456 


012046 




3233 045460 


005237 


002222 


3234 045464 






045464 


104406 




3235 






3236 






3237 






3238 






3239 045466 


004737 


050004 


3240 045472 


012704 


0503'0 


3241 0454 76 


010465 


000000 


3242 045502 


004737 


016336 


3243 045506 






3244 045522 


103407 




3245 045524 


010001 




3246 045526 






3247 045526 






045526 


104455 




045530 


001204 




045532 


046746 




045534 


012046 




3246 045536 


005237 


002222 


3249 045542 






045542 


104406 




3250 045544 


004737 


050166 


3251 045550 


012701 


046422 


3252 045554 


012702 


050262 


3253 045560 


011211 




3254 045562 


042711 


002000 


3255 045566 


042711 


001000 


3256 045572 


042711 


000400 


3257 045576 


016261 


000002 000002 


3258 045604 


005000 




3259 045606 


012701 


050242 


3260 045612 


012702 


046402 


3261 045616 


012703 


000024 


3262 045622 


004737 


011500 


3263 045626 






3264 045636 


103404 




3265 045640 






3266 045640 






045640 


104456 




045642 


001205 




045644 


047674 




C45646 


012350 




3267 045650 






045650 


104406 




3268 






3269 






32 70 045652 


012 700 


000100 


3271 045656 


004737 


050046 



62$; 



70$ 



77$ 



80$ 



92$ 



MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T172SSR , PKTSSR 



INC FATFLG 
CKLOOP 



(SAVE CONTFNTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP CJERDF 
.WORD 643 
.WORD T172SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



Do a Write Subsystem 
If all Tape Status 2 
signals NOT-0 Then 
JSR PC.T17SRD 
MOV M17PK2.R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 77$ 
BCS 80$ 
MOV R0.R1 
NEXT.ERRNO 
ERPOF ERRNO, T173SSR. PKTSSR 



INC FATFLG 
CKLOOP 

JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV 0T17BFSTA.R2 

MOV CR2),(R1) 

BIC •S1.ICER.CR1) 

BIC ♦Sl.IFMK.(Rl) 

BIC #SI.IHER,(R1) 

MOV 2(R2),2(Rl) 

CLR RO 

MOV M17BFR.R1 

MOV *T17EXP,R2 

MOV *20.,R3 

JSR PC.CKMSG2 

FORCERROR 92$,N0TSSR 

BCS 100$ 

NEXT. ERRNO 

ERRHRD ERRNO, T177CMP.MSGSTAT 



READ STATUS 

(ICER.IFMK.IHER) flip-vlop 
Print Error 



100$: CKLOOP 



Do a Write Subsystem 
MOV *NP.OUT,RO 
JSR PC.T17SNPR 



WRITE NPW 



{SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
; SET THE P -KET ADDRESS TO EXECUTE 
{WAIT FOR : 3R TO SET 

iMOFORCE ERROR IF FORCER-1 
{BR IF CARRY SET CGOOO RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.UORD 
.WORD 



CJERDF 
644 

T173SSR 
PKTSSR 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



{SET 
;GET 
{GET 
{SET 
{SET 
{SET 
I SET 
{SET 
{HIGH 



SET 
TRAP 

WORDS 0-7 EXPD-RECV (NOT 
EXPECTED READ STATUS 
RECV READ STATUS 



C$CLP1 
TESTING) 



EXPD 
EXPO 
EXPD 
EXPD 
EXPD 
RECV 



WORD 
ICER 
IFMK 
IHER 
WORO 



08 - RECV TEMP 



*9 



RECV (NOT TESTING) 
ADDRESS FOR CKHSG2 
FOR CKMSG2 



{LOU RECV ADDRESS 

{EXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 

tEXPD EQUAL RECV? 

{BR IF YES 

{REPORT ERROR 



{LOOP ON ERROR, IF FLAG 



to set tape direction out 
{SET TAPE DIRECTION OUT 
{SETUP T17PK2 FOR WRITE N> 



TRAP 

.WORD 

.UOflD 

^ORD 

Ot 1 


CIERHRD 
6 '15 

T177CMP 
MSGSTAT 


TRA-> 


CJCLPl 
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113 



SEQ 164 



3272 
3273 
3274 
3275 

3276 
3277 
3278 
3279 



3280 
3281 

3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 



3307 
3308 

3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 



045662 
045666 
045672 
045676 
045712 
045714 
045716 
045716 
045716 
045720 
045722 
045724 
045726 
045732 
045732 



045734 
045740 
045744 
045746 
045750 
045752 
045754 



012704 
010465 
004737 

103407 
010001 



104455 
001206 
047013 
012046 
005237 

104406 



012701 
012702 
005000 
110021 
005200 
005302 
003374 



050370 
000000 
016336 



112$: 



MOV 0T17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 112$ 

BCS 120$ 

MOV R0,R1 

NEXT. ERRNO 

ERRDF ERRNO , T174SSR , PKTSSR 



jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER -1 
i BR IF CARRY SET CGOOD RETURN) 
{SAVE CONTENTS OF TSSR 

j DEVICE FATAL. SSR FAILED TO SET 



002222 



046422 
000100 



120$: 



INC 
CKLOOP 



FATFLG 



TRAP 


C$ERDF 


.WORD 


646 


.WORD 


T174SSR 


.WORD 


PKTSSR 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



Setup incrementing pattern in FIFO data buffer 



130$ 



MOV *T17EXSTA,R1 

MOV *64., R2 

CLR RO 

MOVB RO.CRDf 

INC RO 

DEC R2 

BGT 130$ 



045756 012737 000001 002310 



045764 
045764 
045770 
045774 
046000 
046004 
046010 
046014 
046030 
046032 
046034 
046034 
046034 
046036 
046040 
046042 
046044 
046050 
046050 



046052 
046056 
046062 
046066 
046072 
046106 
046110 
046112 



013700 
012701 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001207 
04 7056 
012046 
005237 

104406 



004737 
012/04 
010465 
004737 

103407 
010001 



002310 
046422 
050072 
050370 
000000 
016336 



150$ 



REPEAT FOR BYTE COUNT 1 TO 65. 
MOV #1, COUNT 
Do a Write Subsystem WRITE FIFO 



152$ 



MOV COUNT, RO 

MOV #T17F.X5TA.R1 

JSR PC.T17WFIF 

MOV OT17PK2.R4 

MOV R4.TSDBCR5) 

JSR PC,CHKTSSR 

FORCERROR 152$ 

BCS 160$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T175SSR, PKTSSR 



lEXPD WRITE FIFO DATA BUFFER 

{TEST PATTERN SIZE 

i INCREMENT TEST PATTERN 

» STORE INCREMENT TEST BYTE 

;SET NEXT PATTERN 

{DONE? 

j BR IF NO 



{GET FIRST BYTE COUNT 

i*ith th« current byte count 

.REPEAT LOOP LABEL 

{FIFO BYTE COLNT 

j FIFO WRITE DATA ADDRESS 

j SETUP T17PK2 FOR WRITE FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

jfiWOFORCE ERROR IF FORCER -1 
;BR IF CARRY SET CGOOD RETURN) 
{SAVE CONTENTS OF TSSR 



002222 



050024 
050370 
000000 
016336 



160$ 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TC SET 

TRAP 
.WORO 
.WORD 
.WORD 



{SET FATAL ERROR FLAG 
,LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
64 7 

T175SSR 
PKTSSR 



C$CLP1 



Do a Write Subsystem 
JSR PC.U7RSFIF 

MOV *T17PK2,R4 

MOV R4.TSDBCR5) 

JSR PCCHKTSSR 



FORCERROR 
BCS 170$ 
MOV R0,R1 
NEXT. ERRNO 



162$ 



Write Misc to Reset FIFO 

{SETUP PKT FOR WRITE MISC RESET FIFO 
{GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER »1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



J13 
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3319 



3320 
3321 

3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 



3335 
3336 

3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 



3354 

3355 
3356 
3357 
3358 

3359 
3360 



046112 
046112 
046114 
046116 
046120 
046122 
046126 
046126 



046130 
046134 
046140 
046144 
046150 
046164 
046166 
046170 
046170 
046170 
046172 
046174 
046176 
046200 
046204 
046204 
046206 
046212 
046216 
046222 
046224 
046230 
046234 
046240 
046246 
046250 
046254 
046260 
046264 
046270 
046300 
046302 
046302 
046302 
046304 
046306 
046310 
046312 
046312 



046314 
046314 
046324 
046330 



104455 
001210 
046702 
012046 
005237 

104406 



004737 
012704 
010465 
004737 

103407 
010001 



104455 
001211 
046746 
012046 
005237 

104406 
004737 
012701 
012702 
011211 
042711 
042711 
042711 
016261 
005000 
012701 
012702 
012703 
004737 

103404 



104456 
001212 
04 76 74 
012350 

104406 



00523 7 
023727 



162$ j ERRDF ERRNO, T172SSR .PKTSSR 



002222 



170$: 



050004 
050370 
000000 
016336 



177$: 



002222 



050166 
046422 
050262 

002000 
001000 
000400 
000002 000002 

050242 
046402 
000024 
011500 



180$: 



192$ 



200$: 



250$: 



SEQ 165 



I DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


648 


.WORD 


T172SSR 


.WORD 


PKTSSR 



INC 
CKLOOP 



FATFLG 



j SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



002310 
002310 



000101 



Do a Write Subsystem 
If all Tape Status 2 
signals NOT-0 Then 
JSR PC.T17SRD 
MOV 0T17PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 177$ 
BCS 180$ 
MOV R0.R1 
NEXT. ERRNO 
ERRDF ERRNO, Tl 73SSR , PKTSSR 



INC FATFLG 
CKLOOP 

JSR PC,T17SETEXP 

MOV 0T17EX5TA,R1 

MOV OT17BFSTA.R2 

MOV vR2),CRl) 

BIC * c ; .ICER.(Rl) 

BIC *SL.IFMK,CRL) 

BIC vaL.IHER.CR1) 

MOV 2(R2),2(R1) 

CLR RO 

MOV 0T17BFR.R1 

MOV 0T17EXP,R2 

MOV 020., R3 

JSR PC.CKMSG2 

FORCERROR 192$ ,NOTSSR 

BCS 200$ 

NEXT, ERRNO 

ERRHRD ERRNO, T177CMP.MSGSTAT 



CKLOOP 



FORCE XI T 2^0$ 

INC ^ COUNT 

CMP COUNT, 065. 



READ STATUS 

CJ.CER,IFMK,IHER) flip-flop 
P^int Error 



j SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
(WAIT FOR SSR TO SET 

jSSOFORCE ERROR iF FORCER- L 
5 BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 649 
.WOR'J T173SSR 
.WORD PKTSSR 

{SET FATAL ERROR FLAG 

jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

{SET WORDS 0-7 EXPD-RECV (NOT TESTING) 

{GET EXPECTED READ STATUS 

{GET RECV READ STATUS 

,SET EXPO WORD 08 • RECV TEMP 

j SET EXPD ICER -0 

{SET EXPD IFMK -0 

j SET EXPD IHER -0 



I SET EXPD WORD 09 • RECV (NOT 
5 HIGH RECV ADDRESS FOR CKMSG2 
j LOW RECV ADDRESS FOR CKMSG2 
lEXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 
{EXPD EQUAL RECV? 

joao 

{BR IF YES 
{REPORT ERROR 



{LOOP ON ERROR, 



TESTING) 



TRAP 


C$ERHRD 


.WORD 


650 


.WORD 


Tl //CMP 


.WORD 


MSGSTAT 


IF FLAG SET 





TRAP 



C$CLP1 



{GET NEXT BTTE COUNT 
iDONE ALL BtTES? 
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SEQ 166 



3361 046336 


101002 




3362 046340 


000137 


045764 


3363 046344 






3364 






3365 046344 






046344 






046344 


104403 




3366 






3367 046346 


005737 


002222 


3368 046352 


001402 




3369 046354 


004 737 


017202 


3370 046360 


004737 


016456 


3371 046364 


103002 




3372 046366 


000137 


040424 


3373 046372 






3374 






3375 046372 






046372 


104432 




046374 


002112 




3376 






3377 






3378 






3379 






3380 






3381 






3382 






3383 046376 






3384 






3385 046376 


377 




3386 046377 


037 




3387 046400 


360 




3388 046401 


000 




3389 






3390 046402 






3391 046402 


000000 




3392 046404 


000000 




3393 046406 


000000 




3394 046410 


OOOOOO 




3395 046412 


000000 




3396 046414 


OOOOOO 




3397 046416 


OOOOOO 




3398 046420 


OOOOOO 




3399 046422 






3400 046524 






3401 






3402 046524 






3403 






3404 






3405 






3406 






3407 






3408 046626 


106 


111 


3409 046645 


127 


122 


3410 046702 


127 


122 


3411 046 746 


127 


122 


3412 047013 


12 7 


122 


3413 047056 


127 


122 



06 



260$ 



BHI 
JMP 



ENDSUB 



260* 
150$ 





TST 


FATFLG 




BEQ 


300$ 




JSR 


PCCKDROP 


300$: 


JSR 


PCTSTLOOP 




BCC 


305$ 




JMP 


T17L00P 


305$: 







EXIT 



TST 



i ♦ 



sLOCAL STORAGE FOR THIS TEST 



T17MSK: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



tC^U00> 
tC<340> 
tC<0!7> 




TJ7EXP: 

.WORD 

. WORD 

. WORO 

.WORD 

.WORD 

.WORD 

.WORD 

. WORD 

U7EXSTA; .BLKB 66, 

T17EXEND: 

T17WFDATA: .BLKB 66. 



{LOCAL 



TEXT MESSAGES FOR TEST 



t BR 
{DO 



IF YES 
ANOTHER 



BYTE COUNT 



I //////////// END SUBTEST ////////// 

L 10064; 

TRAP C$ESUB 

,ANY FATAL ERRORS ? 

; BRANCH IF NOT 

} TRY TO DROP THE UNIT 

jDO ITERATIONS? 

}BR IF NO 

{LOOP UNTIL ITERATIONS DONE 



•,////////// EXIT TEST 



////////// 

TRAP C$EXIT 
.WORD L10056- 



MASK OF UNTESTED BITS IN READ STATUS BYTES 

UNTESTED BITS ARE SET TO 1 

BYTE MASK 

BYTE 1 MASK (PARERR » IRESV2 . IRESV1 ) 

BYTE 2 (TIMER A, TIMER B ,UN0F.FINED< 1 jOO 

MAKE IT EVEN 

BEGIN EXPECTED DATA BUFFER 
MESSAGE TYPE 
DATA FIELD LENGTH 
RBPCR 
XSTO 
XST1 
XST2 
XST3 

XST4 (ALWAYS PRESENT FOR WRITE SUB.) 
EXPECTED READ STATUS AND WRITE FIFO DATA 
{END EXPECTED DATA BUFFER 

j WRITE FIFO EXPECTED DATA BUFFER 



TST17ID 
T17SSR: 
T172SSR 
T173SSR 
T174SSR 



.ASCIZ 
.ASCIZ 
.ASCI7 

.ASCI/ 



ASCIZ 'FIFO b^rciaer' 

WRITE CHARACTERISTICS Failed' 

WRITE SUBSYSTEM (Write M 1 sc ) Failed' 

URITE SUBSYSTEM (Read Status) Foiled' 

URITE SU6S1STFM (Write Npr ) Failed' 



T175SSR: .ASCIZ 'WRITE SUBSYSTEM (Write FIFO) Failed' 
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SEQ 167 



3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

5465 

3466 

3467 

3468 

3469 

3470 



047122 
047165 
04 724 7 
047343 
047427 
047512 
04 7566 
047674 



047760 
047760 
047764 
047770 
047 774 
047776 
050000 
050}02 



050004 
050004 
050010 
050014 
050020 
050022 



050024 
050024 
050030 
050034 
050040 
050044 



050046 
050046 
050052 
050056 
050062 
050066 
050070 



127 
106 
122 
106 
106 
122 
106 
106 



012701 
012702 
105021 
005302 
003375 
000207 



004737 
012700 
112720 
105010 
000207 



004737 
012700 
112/20 
112710 
000207 



004737 
012701 
112721 

052700 

noon 

000207 



122 
111 
145 
111 
111 
145 
111 
111 



111 
106 
141 
106 
106 
141 
106 
106 



050242 
C00120 



047760 
050400 
000005 



04 7 760 
050400 
000010 
000030 



04 7 760 
050400 
000011 
000020 



T176SSR: 
T171CMP: 
T172CMP: 

T173CMP; 
T174CMP; 
T175CMP: 
T176CMP: 
Tl77CMPs 



ASCIZ 'WRITE SUBSYSTEM (Read FIFO) Foiled' 
ASCIZ 'FIFO Status in WORD 09 Incorrect after Initialize 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
,ASCIZ 
,ASCIZ 
,EVEN 



'Read 
•FIFO 
'FIFO 
'Read 
'FIFO 
'FIFO 



FIFO Data not equal 
Status (In WORD 09) 
Status (In WORD 09) 
FIFO Data not equal 
Status (In WORD 09) 
Status CIn WORD 09) 



to Write FIFO , Data iy in WORD 08' 

Incorrect after WRITE FIFO' 

Incorrect after READ FIFO' 

to Write FIFO Data' 

Incorrect after READ FIFO from on Empty FIFO' 

Incorrect after RESET FIFO' 



} ♦ 



CLEAR MESSAGE BUFFER 



T17CLRBUF: 




SAVREG 




MOV 


0T17BFR.R1 


MOV 


OT17BEND-Tl7BFR,r 


10$: CLRB 


CRD* 


DEC 


R2 


BGT 


10$ 


RTS 


PC 



} 

{SAVE R1-R5 UNTIL NEXT RETURN 

{ GET MESSAGE BUFFER ADDRESS 

;SIZE OF MESSAGE BUFFER IN BYTES 

{ CLEAR A BYTE 

j DONE? 

;BR IF NO 

{RETURN 



SETUP T17PK2 PACKET FOR READ STATUS 
T17SRD: 



JSR 


PC.T17CLRBUF 


MOV 


OT17DT2.RO 


MOVB 


OPW.RDSTATUS.CRO)* 


CLRB 


(no) 


RTS 


PC 



; CLEAR MESSAGE BUFFER 

i WRITE SUBSYSTEM DATA BUFFER 

j STORE READ STATUS COMMAND IN BSELO 

; CLEAR BSEL1 

j RETURN 



SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 



T17RSFIF; 

JSR 
MOV 
MOVB 
MOVB 



PC.T17CLRBUF 

0TUDT2.R0 

OPW.WMISC,(R0)» 

OMS.RSFIFJMS.RSTAP.CRO) 

PC 



;CLEAR MESSAGE BUFFER 

I WRITE SUBSYSTEM DATA BUFFER 

; STORE WRITE MISCELLANEOUS IN BSELO 

{STORE BSEL1 CLEAR FIFO CODES 

{RETURN 



SETUP T17PK2 PACKET FOR WRITE NPR 



INPUT: 



RO CONTAINS BSEL1 NPR DATA 

SETS NP.WRP SINCE IF IT WRITES WRONG PARITY, 



T17SNPR: 




JSR 


PC.T17CLRBUF 


MOV 


OT17DT2.R1 


MOVB 


OPU.WNPR.CRl)* 


BTS 


ONP.WRP.RO 


MOVB 


RO.(Rl) 


RTS 


PC 



{CLEAR MESSAGE BUFFER 
tWRITE SUBSYSTEM DATA BUFFER 
{S10RE WRITE NPR IN BSEl 
{DON'T WRITE WRONG PARITi 
{STORE NPR DATA IN BSEL1 
{RETURN 



M13 
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SEQ 168 



34 71 
3472 

34 73 
34 74 

3475 

34 76 

34 7 7 

34 78 

34 79 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

34 95 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

351/ 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3527 

3529 



050072 
050072 
050076 
050102 
050106 
050112 
050114 
050116 
050120 
050122 
050124 



050126 
050126 
050132 
050136 
05014? 
050144 



050146 
050146 
050152 
050156 
050160 
050162 
050164 



050166 
050166 
050172 
050176 
050202 
050204 
050206 
050210 



004 737 
012702 
1.12722 
110022 
005022 
112122 
005300 
003375 
000207 



004737 
012701 
112721 
110021 
000207 



012701 
012700 
105021 
005300 
003375 
000207 



012702 
012703 
012700 
012322 
005300 
003375 
00020/ 

050220 



047760 
050400 
000004 



04 7 760 
050400 
000003 



046402 
000122 



046402 
050242 
000010 



SETUP T17PK2 PACKFT FOR WRITF FIFO 



INPUT: 



l 
i 


HU LUNiMlNS BYIfc LUUN I 

Rl CONTAINS DATA PATTER 


T17WFIF 


*SAVREG 






JSR 


PC.T17CLRBUF 




MOV 


0T17DT2.R2 




MOVB 


*PU.WFIF0,(R2)* 




M0V8 


R0,CR2)» 




CLR 


CR2)* 


10$: 


MOVB 


CRL)*,(R2)» 




DEC 


RO 




DGT 


10$ 




RTS 


PC 



BLOCK ADDRESS 



j SAVE R1-R5 UNTIL NEXT RETURN 
{CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
{STORE WRITE FIFO IN BSELO 
; STORE BYTE COUNT IN BSEl.l 
{CLEAR SEL2 (UNUSED) 
i STORE DATA PATTERN BYTE 

DONE ALL BYTES? 

BR IF NO 

RETURN 



SETUP T17PK2 PACKET FOR READ FIFO 



INPUT : 



RO CONTAINS SEL2 BYTE COUNT 



T17RFIF: 

JSR PC.T17CLRBUF 

MOV OT17DT2.R1 

MOVB tfPU.RFIFO.CRl^ 

MOVB RO.CRD* 

RTS PC 

CLEAR EXPECTED DATA MESSAGE BUFFER 



{CLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BUFFER 
{STORE READ FIFO IN BSFLO 
{STORE BYTE COUNT IN BSEL1 
{RETURN 



CT17EXP.R1 

4T17EXEND-T17EXP.ro 
CRH* 

RO 

10$ 

PC 



GET EXPO ADDRESS 
GET EXPD SIZE 
CLEAR A BYTE 
DONE ? 
BR IF NO 
RETURN 



T17CLEXP: 

MOV 

MOV 
10$: CLRB 

DEC 

BGT 

RTS 

J ♦ 

;Set WORDS 0-7 of enpd message buffer * to recv since not testing 



;GET EXPD 

{GET READ STA1US RECV BUFFER 

{SET WORDS 7 EXP -RECV 

{SET EXPD-RECV 

{DONE WORDS 0-7 WORDS? 

;BR IF NO 

{RETURN 



17SETEXP: 






MOV 




0T17EXP.R2 


MOV 




0T17BFR,R3 


MOV 




08, ,R0 


$: MUV 




(R3)»,(R2)* 


DEC 




RO 


BGT 




5i 


RTS 




PC 


, *< , 


♦ 10 


»6177770 



N13 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 
TEST 6 j SU8TEST 6: FIFO VERIFY RESET FIFO TEST 



3530 

3531 

353?. 

3533 

3534 

3535 

3536 

3537 

3536 

3539 

3540 

3541 

354P 

3543 

3544 

3545 

3546 

354 7 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3563 

3565 

"566 

3567 

3568 

3569 

3570 

3571 

3572 

35 73 

3574 

3575 

35 76 

357 7 



35 78 
35 79 
3580 
3581 
3582 
3583 
3584 
3585 
3586 



050220 
050220 
050222 
050224 
050226 

050230 
050230 
050232 
050234 
050236 
050240 



050242 
050242 
050244 
050246 
050250 
050252 
050254 
050256 
050260 
050262 
050362 



050370 
050370 
0503^2 
050374 
050376 

050400 
050400 
050401 
050402 
050404 

050506 
050506 
050506 



100004 
050230 
000000 
000012 



050242 
000000 
000024 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



050370 

100006 
050400 
000000 
000012 



000 

000 

000000 



104401 



{WRITE CHARACTERISTICS COMMAND PACKET 



T17PACKET: 

.WORD 
.WORD 
.UORD 
.WORD 



T17DATA; 



.WORD 
.WORD 
. WORD 
.WORD 
.WORD 



100004 

T17DATA 



10. 



T17BFR 



20. 







•.MESSAGE BUFFER FOR ALL TEST 6 COMMANDS 



T17BFR: 








.WORD 







.WORD 







.WORD 







.WORD 


C 




.WORD 







.WORD 







.WORD 







.WORD 





T17BFSTP 


: .BLKB 


64. 


U7BEND: 






I WRITE SUBSYSTEM READ STATUS C 




.-<.*10 


>6177770 


T17PK2; 








.WORD 


P.WRTSUBJP.ACK 




.WORD 


T17DT2 




.WORD 


n 




.WORD 


10. 


T170T2: 








.BYTE 







.BYTE 







.WORD 


u 




.BLKB 


66. 



SEQ 169 



{COMMAND PACKET f OR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{MINIMUM MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

,ESS,ENB,EAI,ERI 

{EXTENDED FEATURES UNIT NO. ETC, 



{BEGIN MESSAGE BUFFER 
{MESSAGE TYPE 
{DATA FIELD LENGTH 

RBPCR 

XSTO 

XST1 

XST2 

XST3 

XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 

READ STATUS AND WRITE FIFO BUFFER 
;END OF MESSAGE BUFFER 



{WRITE SUBSYSTEM WITH ACK 
{LOW ADDRESS OF DATA BLOCK 
{HIGH ADDRESS OF DATA BLOCK 
{MINIMUM MESSAGE PACKET SIZE 

;DATA BLOCK 

jBSELO 

jBSELl 

{SEL2 

iVJRITE FIFO DATA OUTPUT BUFFER 



ENDTST 



L. 10056: 



TRAP 



C*ETST 



. SBT TL. TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
TEST DESCRIPTION: 

TEST STEPS: 

REPEAT FOR LOOPCNT 



TSV5 
TEST 



HARDWARE 
': STATIC 



USTS MACRO 
TRANSPORT BUS 



M 1 1 l 5 06 

INTERFACE 



FEB 84 17 j 14 
TF.ST 



B 'I 4 



SEQ I/O 



356 7 

*5fl<» 

3V*0 
3V*1 

55*4 

VW5 

35'*6 
55<* 7 

5S*»8 
55^9 

5604 
3605 
5606 
560 7 
3606 
3609 
3610 
3611 
361? 
3613 



3614 
3615 
3616 
.361 7 
3616 
3619 
56?0 
36? 1 

36?? 

3623 



36?4 
36?5 

36?6 
36? 7 
36?« 
36?9 
.36 50 
3*51 
36 5? 
36 5 5 
56 54 
36 5*) 
?>» 56 
363/ 



050510 
050510 
050510 
050514 
O505?0 
0505?6 

0505?6 
0505?6 

05053? 
050534 
050536 
050556 
050540 
05054? 
050544 



050546 
05055? 
050556 
05056? 
0505 76 
050600 
05060? 
05060? 
05060? 
050604 
050606 
05Ctf 10 
05061? 
050616 
U50616 



05O6?0 
0506?4 
0506 5? 
050654 
050640 
050644 
050650 
050654 



01? 700 
004 73 7 
OU737 



004737 

105405 
01OOO1 

104455 
001274 

00565? 
01?034 



0O505 7 
01?704 
004 757 

105407 
010001 



104455 
001?75 
0M?55 
01?046 
005?5 7 

104406 



012701 
05? 761 
0010?6 
004 75 7 
01?704 
010465 
00475/ 

IQ3A0V 



BFGIN 

Write to TSSR register to soft Initial!/* the controller 

Do WRITF CHARACTERISTICS to check for Extended Features Switch 

If Extended F eaturee Hmrfrtmrm Switch Clear then: 

Do Write Subeyetem Write Mi ecellaneoue to Set Extended Features. 
Do WRITE CHARACTERISTICS to eeiect reserved unit 7 
Do a Write Subeyetem READ STATUS 

If any tranaport interface signals are aaaerted then Print Error 
END 



051216 

016510 
00001? 



015774 



OQ??lb 



T16L00P: 

J 
5»s 



BGNTST 

MOV 
JSR 

MOV 



002??? 

051700 



10* 



121 s 



0517?^ 
000?00 

051546 
051750 
000000 

016336 



151: 



OOOQW 



♦TSTlftlD.RO 
PC.TSTSF TUP 
*10. ,1 OOPCNT 



11: : 
i ASCI I MESSAGE Ml Lf>FNT IT tT TEST 
jDO INITIAL U ST Sf TUP 
i PERFORM 10 ITERATIONS 



Write to TSSR register to soft initiali/e tha controller 



JSR PC.SOFINIT 

DCS 10$ 

MOV R0.R1 

ERROF ERRWO , SF lERfi , SF IMSG 



jWRITE TO TSSR TO SOFT INITIALIZE 
iBR If SOFT INI T OK*W 
j SAVE CONTENTS Of TSSR 



jDEVICE FATAL DURING INIT 

TRAP CIERD* 

.WORD 700 

.WORD SMERR 

.WORD SEIMSG 

Do WRITE CHARACTERISTICS to chec^ for Extended ^titurtt Switch 



CLR FATFLG 

MOV #T16PACKE T.R4 

JSR PC.WPTCHP 

FORCERROP 121 

BCS 151 

MOV R0.R1 

NEXT .ERRNO 

ERROF ERRNO, TIBSSR.PKTSSR 



INC 
CKLOOP 



F ATFLli 



jCLEAR FATAL ERROR ElAG 

iGET THE ADDRESS Of COMMAND PACKET 

,00 W«ITE CHARACTERISTICS COMHANO 

i»flOE0«CE ERROW IE fO«CER-l 
,BR H CARRY SE T CGOOO RETURN) 
jSAVF CONTENTS 0*" TSSR 

IDEVICE FATAL SSR FAILED TO SF T 

TRAP ClfRIW 

.WORD 701 

,WOR0 I 18SSR 

,UORD PKTSSR 

j SET FATAL ERROR FLAG 

ilOOP ON ERROR, TF FLAG St T 

TRAP CfCtPi 



If Extended Feature* rtmrammr* Switch Clear vh#o: 

Do Write Sutoayetem Write Miictl ieneooe to Sat Extended Feature* 



MOV eT18BFR,Rl 

BIT ex?.Exrr,xsT?(Ri) 

BNE 301 

JSR PC.T16SMISC 

MOV *T15PK?,R4 

MOV R4,TS0B(R5) 

JSR PC.CHKTii'.R 



F^CEflROH 
UCti 30t 



wV 



}l 



I MESSAGE BUFFER ADORESS 

lEMTFNOEO FEATURES SWITCH SET.* 

»BR IF TES 

j SETUP PACKET FOR WRITE MI -,CH I ANf Ov 

iGET WRITE SUBSYSTEM COMMAND PACKf T 

I SET THE PACKET ADDRESS TO ExEO'TJ 

jWAIT FOR SSR TO SE T 

i»aOFO«CE ERROR If >0«CfcH-l 
lUH U CARRi SET VGUUU RtTUMO 



Wi r^mm Mi&PORrm w^eni! 



CAA 



H4 17; 14 



SEQ 171 



5658 
5659 
5640 



5641 

3M<! 

564 5 
5644 
564 V 
5646 
564 7 
5646 
5649 
5650 
5651 
565? 
5655 



56 W 

5655 

5656 
565 7 
3658 
5659 
5660 
5661 
566? 
5665 
5664 
5665 
3666 
366 7 
3668 
3669 
3670 
36/1 
36 73 



36/5 
36/4 

36/5 
36 /6 
36 / / 
~M> /M 
36/V 



0506 7c? 
0506/4 
050674 
050674 
050676 
050/00 
05070? 
050 704 
050/10 
050710 



050 71? 
050716 
050722 
050726 
05074? 
050744 
050/46 
050 746 
050 746 
050 750 
050 752 
050754 
050 756 
050 76? 
05076? 



050/64 
050/70 
050 7 74 
0507 76 
051000 

051002 
0510O6 
05101? 
051016 
051022 
051056 
051040 
05104? 
05104? 
05104? 
051044 
051046 
051050 
05105? 
051056 
051056 



010001 



104455 
001?76 
05151? 
012046 
005237 

104406 



00505/ 
012/04 
004 737 

105407 
010001 



104455 

001?77 
051?55 
01?046 
005?57 

104406 



012/01 
013/00 
1050?1 
005500 
0O3575 

004737 
01?704 
010465 
004/57 

10540/ 
010001 



10445^ 

001500 
0*; 1 356 
01?04b 
OCV5 7 

104406 



22*5 



002222 



051/00 
010662 



002222 



051722 
051714 



051526 
051/50 
000000 
If. 3 36 



002222 



30$; 



42*; 



501: 



601; 



62$: 



OlilOCO 004/37 0515/0 



70$ 



MOV R0.R1 

NEXT , ERRNO 

ERRDF ERRNO , T 182SSR , PK T5SR 



INC 
CKLOOP 



FATFLG 



Do WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV #T18PACKET,R4 

JSR PC.WRTCHR 

FORCERROH 42$ 

BCS 50$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T 16SSR , PK T SSR 



INC FATFLG 
CKLOCP 



Clear meeaeoe buffer 

mov #ti8bfr,ri 
mov t18datm»4,r0 

CLRB (Ri)> 

DEC RO 

BGT 60$ 

Do a Writt Subeyat*m READ STATUS 

JSR PC.T18S&D 

MOV *T1BPK?.R4 

MOV R4,T5D8(R5) 

JSR PC.CHKTSSR 

FORCERROR 6?» 

BCS 70$ 

MOV NO t Rl 

NF XT, ERRNO 

ERRDF ERRNO, U85SSR, PKTSSR 



iSAVE CONTENTS OF TSSR 

iDEVlCE FATAL SSR FAILED TO SET 

TRAP CIF.RDF 

. WORD 702 

. UORD T182SSR 

.UORD PK TSSR 

|SFT FATAL FRROR FLAG 

I LOUP ON ERROR, IF FLAG SM 

TRAP C$CLP1 



•#iect r***rvm<i ur.it / 

, CLEAR FATAL ERROR FLAG 

I GET THE ADDRESS Of COMMAND Pf\Cxf J 

iDO WRITE CHARACTERISTICS COMMAND 

jSBOFORCE ERROR IF FORCER-1 
iBR IF CARRf SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



iDEVXCE FATAL SSR FAILEU TO SET 




TRAP 


C$f RD* 


.WORD 


70 3 


.uxo 


TiessR 


.iiJ* r, 


PKTSSR 


iSl T FATAL ERROR F LA<> 




lLOOP ON ERROR, IF FLAG St T 




RAP 


CICLP1 


jGET MESSAGE BUTFER ADDRESS 




iSI/E OF MESSAGE BUTFER IN BYTES 


iCLEAR A BfTE 




iDONE? 




iBR IF NO 





iSFTUP PACKET FOR RF AD STATUS 
iGET WRITE SUBSYSTEM COMMANO PACKET 
jSFT THE PACKET ADORESS TO ExECUTF 
iWAIT FOR SSR TO SET 

ififlOFORCE ERROR IF FORCER-1 
j BR IF CARRf SET ( GOOO RETURN) 
jSAVE CONTENTS 0*' TSSR 



(DEVICE FATAL SSR 



FAILED TO 
TRAP 



iff 



INC 
CKl OOP 



FATF I [\ 



jSF 1 FATAl FRRW M,Al, 
it OOP UN ERROR. U F'l Ab 



.MJflD 

.WORD 

, WORD 

bt T 
TRAP 



CUR|)» 

"704 

T LA5S-,R 

PKTSSR 



c set PI 



Set f!r«it A »ord« of e-pjd me**»<iv* baffer 

set unu*ed b't» in r«a£ Status #*pd eo^al 
JSR PC*UtiSETUP iStT SOME 



1 to recv ^Ino<» r\Qt tttttttig 
LXPO TO RLCV 



)14 



TSV5 
TEST 



HAROWARt 
': STATIC 



3660 
3681 
3682 
3683 
3634 
3685 
3686 
368/ 
3688 
3689 



3690 

3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 



3/00 
S/ul 
3/0? 
3/03 
3/04 
3705 
3 /06 
3/0/ 
3/08 
3709 
3710 
3/11 
3/1? 
3/13 
3/14 
3715 
3/16 
3/17 
3/16 
3/19 
3/20 
3/21 

3/23 
3 724 
3/2*". 
3 /26 
3/,'/ 

3/?S 

3/ 29 



051064 
051066 
051072 
051076 
051102 
051106 
051116 
051120 
051120 
051120 
051122 
051124 
051126 
051130 
051130 



051132 
051136 
051140 
051144 
051150 
051152 
051156 
051156 
051156 
051160 



05116? 
051162 
051163 
051164 
051165 

051166 
051166 
051170 
051172 
0511/4 
051176 
051200 
051202 
051204 
051206 
051210 

051212 
051214 



TESTS MACRO M1113 Oft-KEB 84 17:14 
TRANSPORT BUS INTERFACE TEST 



SEQ 172 



005000 
012/01 
012702 
012703 
004/37 

103404 



104456 
001301 
051423 
012350 

104406 

005737 
001402 
004737 
004737 
103002 
000137 



1044 3? 
000606 



37 7 
037 
100 
000 



000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

*// 
oooooo 



1 



05172? 
051166 
000012 
011500 



If any 

CLR 

MOV 

MOV 

MOV 

JSR 



transport 
RO 
•TlftBFR.Rl 

«T18EXP,R2 
#10, ,R3 
PC.CKMSG2 



82$,N0TSSR 



82$; 



90$; 



FORCERROR 

BCS 90$ 

NEXT.ERRNO 

ERRHRD ERRNO , T 18CMP , MSGST AT 



CKLOOP 



interface «»Qnal* » r « ■•••'*t«d th#n Print Error 
I HIGH RECV ADDRESS FOR CKMSG2 
I LOU RECV ADDRESS FOR CKMSfi? 
lEXPD ADDRESS 

j NUMBER OF WORDS TO COMPARE 
I EXPO EQUAL RECV? 
ibiiJO 
jBR IF YE*: 



00222? 

01720? 
016456 

050526 





1ST 


FATFLG 




BEQ 


160$ 




JSR 


PC.CKDROP 


160$: 


JSR 


PC.TSTLOOP 




QCC 


165$ 




JMP 


T18L00P 


165$: 







EXIT 



TST 



lLOCAL STORAGE FOR THIS TEST 



020 



T18MSK: 








. B Y T F 


tc<ooo» 




.BYTE 


♦ C<340* 




,BWE 


>C<277> 




.BYTE 





T18EXP: 








.WORD 







.WORD 







.WORD 







.UORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORO 





Tirtxs? 


.HtU 


W1 % 020 




.WORD 






j REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORO 

.WORD 

SET 

TRAP 



MERHRD 
705 

ri8CHp 

MSGSTM 
C$CLP1 



,ANt FATAL ERRORS ? 

j BRANCH IF NOT 

1 TRY TO DROP lh^ UNIT 

iDO ITERATIONS^ 

jflR IF NO 

jLOOP UNTIL ITERATIONS DONE 



TRAP 
.WORD 



C»EXII 
L 10065 



j MASK 
jBiIF 
iByTF. 

iBi TE 

j MAKE 



Of UNUSED 

MASK 

1 

2 

IT EVEN 



BITS IN READ STATUS BiThS 



lEXPECTED DATA BUFFER 
i MESSAGE TYPE 
lOATA FIELD LENGTH 
,RBPCR 

tXSTO 
jXSTl 

|XSF2 

IXST3 
,XST4 
jREAD 
jREAD 



(ALWAYS PRESFNT 
STATUS BYTE I/O 
STATUS BYTE ? 



FOR WRITE Sl*n 



j READ STATUS BiTE 0-M FtPKTfcD BASF 
jREAD STATUS BYTE 2 EXPECTED BASE 



jlOCAl TEXT MESSAGES FOR TEST 



t : 14 



TEST 



HARDWARE 
': STATIC 



5/30 

3731 

3/32 

3/33 

3. '34 

3/35 

3736 

3/37 

3738 

3759 

3/4G 

3741 

3742 

3743 

3744 

3 745 

3746 

3/4/ 

3748 

5/49 

3/50 

3751 

3752 

3 753 

3/54 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3 764 

3765 

3766 

3767 

3/68 

3769 

37 70 

3771 

37 72 

3773 

3774 

3/ 75 

37 76 

3777 

3//8 

3779 

3 /80 

3/81 

3/8? 

3/83 

3/85 

3/8/ 

3788 



051216 
051255 

051312 
051356 
051423 



051526 
051526 
051532 
051536 
051542 
051544 



051546 
051546 
051552 
051556 
051562 
051566 



0515/0 
051570 
051574 
051600 
051604 
051606 
051610 
051612 
051616 
051622 
051630 
051632 
051634 
051636 
051640 
051644 
051650 
051654 
051660 
^51664 
051670 



TEST5 MACRO 
TRANSPORT BUS 



Ml 113 06 
INTERFACE 



123 

12/ 
12/ 
12 7 
124 



012700 
112720 
105010 
000207 



012^00 
112/20 
112710 
000207 



012702 
012/03 
012700 
012322 
005300 
003375 
012701 
013712 
015762 
011300 
041100 
040012 
050012 
0165OO 
046100 
040062 
050062 
105062 
10506 3 
000207 

051700 



164 

122 
122 

162 



051/60 
000005 



051760 
000010 
000200 



051166 
051/22 
000010 



051162 
051212 
051214 



000002 
000002 
000002 
000002 
000003 
000003 



141 
111 

111 
111 
141 



FEB 84 
TEST 



17 s 14 



SEQ 1/3 



TSU8ID: 

T18SSR: ASCI/ 
T182SSR: .ASCIZ 
T183S5R{,ASCI2 
T18CMP: .ASCIZ 
.EVEN 



ASCI? 'Static Transport Bui Interface' 

WRITE CHARACTERISTICS Failed' 

WRITE SUBSYSTEM (Writr Misc) Failed' 

WRITE SUBSYSTEM (Read Statu*} Failed* 

Transport Rua Interface Signals NOT Negated After Unit 7 Selected 



SETUP T18PK2 PACKET TOR READ STATUS 



TlSSRDi 



SAVREG 

MOV 

MOVB 

CIRB 

RTS 



0T18DT2.R0 

♦PW.RDSTATUS.CRO)* 

(RO) 

PC 



I SAVE Rl R5 UNTIL Nf X T RETURN 

{WRITE SUBSYSTEM DATA BUFFER 

, STORE RF AD STATUS COMMAND IN BSELO 

iCLEAR BSEL1 

j RE TURN 



i SETUP T18PK2 PACKET FOR WRITE MISC. 



T18SMISC: 




SAVREG 




MOV 


4T18DT2.R0 


MOVB 


*PW.WMISC,(RO)* 


MOVB 


*MS 4 EXT,CR0) 


RTS 


PC 



iSAVE Rl R5 UNTIL NEXT RETURN 

{WRITE SUBSYSTEM DATA BUM ER 

jSTORE WRtTf MISCELLANEOUS LN BSELO 

i STORE INVERT EXTENDED FEATURES IN BSEL1 

{RETURN 

t * 

{Set first Q *oi*ds of expd message buffer • to r«cv ulnce not testing 

j Set unused bits in Read Status enpd equal rcvd 

'ldSETEXP: 

GET EXPD 

GET READ STATUS RECV BL* >f R 
SFT FIRST 8 WORDS EXP-RECV 
SET EXPD-RECV 
DONE FIRST 8 UORDS? 
BR IF NO 

GET UNUSED BIT MASK 
SETUP BASE EXPECTED BY IE 1 '0 
SETUP BASE EXPECTED BtTE 2 
GET RECV BYTE 1 ANO BYTE 
CLEAR ALL BUT UNUSED 
CLEAR UNUSED IN EXP 
SET UNUSED EXPD-RECV 
GET RECV BYTE 2 
CLEAR ALL BUT UNUSED 
CLEAR UNUSED IN EXPO 
SET UNUSED EXPD-RECV FOR COMPARE 
CLEAR EXPD BtTE 3 ( UNUSED > 
CL*AR RECV BtTE 3 t, UNUSED ) 
{RETURN 



T18SETEXP: 




MOV 


♦T16EXP.R2 


MOV 


0T188FR.R3 


MOV 


«8. ,R0 


5$: MOV 


(R5)* # (R2) 


DEC 


RO 


BGT 


51 


MOV 


0T18MSK.R1 


MOV 


T18XS.CR2) 


MOV 


T18XS*2,2( 


MOV 


(R3),R0 


BIC 


(Rl).RO 


8IC 


R0.CR21 


BIS 


R0,(R2) 


MOV 


2(R3),R0 


BIC 


2(R1 ),R0 


BIC 


R0.2CR2) 


BIS 


R0.2CR2) 


CL.RB 


3(R2) 


CI RB 


5CR3) 


RTS 


PC 



FOR COMPARE 



, •< . *l0»£l/7/70 
'{WRITE CHARARTERISTICS COMMAND PACKET 



K14 



TNV5 • HARDWARE 


TESTS 


TEST .': STATIC 


TRANSP( 


3/89 




3790 051700 




3791 051700 


100004 


379? 05170? 


051710 


3793 051704 


000000 


3794 051706 


OOOOl? 


3795 




3796 051710 




3797 051710 


051722 


3798 051712 


000000 


3799 051714 


000024 


3800 051716 


000000 


3801 0517?0 


000007 


380? 




3803 




3804 051722 




3805 0517?? 


000000 


3806 0517?4 


000000 


3807 0517?6 


000000 


3808 051730 


000000 


3809 05173? 


000000 


3810 051734 


000000 


3811 051736 


000000 


3812 051740 


oooooo 


3813 051742 


000000 


3814 051744 


oooooo 


3815 




3816 




38 W 




3819 


051750 


3821 05175C 




3822 051750 


100006 


3823 051/52 


051760 


3824 051754 


OOOOOO 


3825 051756 


000010 


3826 




382 7 051760 




3828 051760 


000 


3829 051761 


000 


3830 051/02 


oooooo 


3851 051764 


oooooo 


3832 




3833 




3834 051766 




051766 




051766 


104401 


3835 




3836 




383/ 




3838 




3839 




3840 




384 1 




384? 




384 3 




3844 




3845 





MACRO M1113 06-FF.B 84 17}14 
IT BUS INTERFACE TEST 



T18PACKET: 




.WORD 


100004 


.WORD 


T18DATA 


.WORD 





.WORD 


10. 


T16DATA: 




.WORD 


T18BFR 


.WORD 





.WORD 


20. 


.WORD 





.WORD 


7 


T18BFR: 




.UORO 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






SEQ 174 



COMMAND PACKET FOR TEST 

WRITE CHARACTERISTICS COMMAND. WITH ACK 

ADDRESS OF CHARACTERISTICS BLOCK 

MESSAGE PACKET MINIMUM SIZE 

CHARACTERISTICS DATA BLOCK 
ADDRESS OF" MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 

ES5,ENB,EAI,ERI 

SELECT RESERVED UNIT 7 



MESSAGE BUFFER 

MESSAGE TYPE 

DATA FIELO LENGTH 

RBPCR 

XSTO 

XST1 

XST2 

XST3 

XST4 (ALWAYS PRESENT FUR WRITE 

READ STATUS BYTF 1/0 RETURNED 

READ 



(ALWAYS PRESENT 
STATUS BYTF 1/0 
STATUS BYTE * 



SUBSYSTEM 



iWRITE SUBSYSTEM READ STATUS COMMAND PACKET 



J 



T1PPK2: 



,-<. aO>6!77770 



T18DT?! 



.WORD 
.WORD 
.WORD 
.WORD 



.BYTE 
.BYTE 
.WORD 
.WORD 



ENDTST 



P.WRTSUBJP.ACK 

U8DT2 



8. 



{WRITE SUBSYSTEM WITH ACK 
{LOW ADDRESS OF DATA BLOCK 
{HIGH ADDRESS OF DATA BLOCK 
{BUFFER EXTENT 



jDATA BLOCK 

jBSELO 

;B ELI 

jSEL? 

{DATA 



I 10005: 



. SB ML TEST 8? TRANSPORT BUS INTERFACE LOUPBACK TEST 



TRAP 



C5ETST 



TEST DESCRIPTION! 



This teat verifies the controller's Transport Buy 
drivers, receivers, and si anal loopbacW logic. Note 
that the Static Transport Bus test must havt run 
correctly for this test to provide meaningful result*!. 



TEST STEPS! 



G14 



TSV5 

TEST 



HARDWARE. TESTS MACRO M1113 06-FEB-64 17} 14 
8: TRANSPORT BUS INTERFACE LOOPBACK TEST 



SEQ 175 



3846 
384? 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 

3861 
3862 

3Rf3 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

38 72 

3873 

38 74 

3875 

3876 

38 7 7 

3878 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

3866 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

389/ 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 



REPEAT FOR LOOPCNT 

BEGIN 

Do Subtest 1 

Do Subtest 2 

Do Subtest 3 

Do Subtest 4 

END 



- Loopback Control signals test 

- Loopback Read/Write signals * St 
• Loopback Write Strobe test 

- Loopback Read Strobe test 



I - - 



051770 
051770 
051770 
051774 
052000 
052006 



012700 
004 73 7 
012737 



060202 
016510 
000012 



002216 



T19L00P; 



BGNTST 

MOV 
JSR 
MOV 



orST19ID,RO 
PC.TSTSETUP 
#10. , LOOPCNT 



T8: : 

jASCII MESSAGE TO IDENTIFY 
jDO INITIAL TEST SETUP 
{PERFORM 10 ITERATIONS 



TEST 



.SBTTL TEST 8j SUBTEST 1; LOOPBACK CONTROL SIGNAL TEST 



TEST 8: 



SUBTEST 1: 



SUBTEST DESCRIPTION-. 

This subtest verifies the Transport Control loopback 
path can transmit and receive correctly. The 
control signals are all loopback signals other 
than the read/write data (IW<7sO> and IR<7:0>). 

TEST STEPS: 

The loopback signals IFAD, ITADO, I TAD1 are the tape unit select 
lines. Since reserved unit 7 must remain selected these signals 
are always set low. Thin further means the signals they di i ve 
(ISPEED.IRDY.IQNL) are only tested in the low state. 



BEGIN 



Write to TSSR regiet 
Do WRITE CHARACTERIS 
If Extended Features 

Do Write Subsystem 
Do WRITE CHARACTERIS 
Do a Write Subsystem 
Do Urite Subsystem W 
Do Write Subsystem W 
(the loopback signa 

that are set on a 
Do a Write Subsystem 
Do a Write Subsystem 
IF all Tape Status 2 

signals NOT-0 Then 



er to soft initialize the controller 

TICS to check for Extended Features Switch 

Hardware Switch Clear then: 

Write Miscellaneous to Set Extended Features. 
TICS to select reserved unit 7 and setup BUFFER 

WRITE NPR to set tape direction out and Loopback 
rite Control to CLEAR loopback signals group I. 
rite Format to CLEAR loopback signals group 2. 
Is have to be cleared here due to the flip-flops 
1 to transition ( IHER , IFMK , ICER ) ) 

Write Misc to Reset Tape Status F -FLOPS 

READ STATUS 

(ICER, IFMK, IHER) flip-flop 

Pr int E ror 



REPEAT FOR ALL TEST PATTERNS IN I HLK TABLE 
BEGIN 

Do Write Subsystem Write Cont . 
Do Write Subsystem Write Forma 
Do a Write Subsystem READ STATU 



to Drive loopback signals group 1 
o Hrive loopboo* signals group 2. 
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TSV?. - HAI\DWARt 


tests 


MACRO M1113 0( 


TEST 8: 


SUBTEST 1; LOOPBACK CONTROL S: 


3906 








3907 








3906 








3909 








3910 








3911 








3912 








3913 


052006 
052006 








052006 


104402 




3914 








3915 








3916 


052010 






3917 


052010 


004737 


015774 


3918 


052014 


103405 




3919 


052016 


010001 




3920 


052020 








052020 


104455 






052022 


001440 






052024 


003652 






052026 


012034 




3921 








3922 


052030 


005037 


002222 


3923 


052034 


012 704 


062330 


3924 


052040 


004 737 


010662 


3925 


052044 






3926 


052060 


103407 




3927 


052062 


010001 




3928 


052064 






3929 


052064 








052064 


104455 






052066 


001441 






052070 


060243 






052072 


^12046 




3930 


052074 


,.05237 


002222 


3931 


052100 








052100 


104406 




39^2 








3953 








3934 


052102 


012701 


062352 


3935 


052106 


032761 


000200 000012 


3936 


052114 


001026 




393 7 


052116 


004737 


062202 


3938 


052122 


012704 


062500 


3939 


052126 


010465 


000000 


3940 


052132 


004737 


016336 


3941 


052136 






3942 


052152 


105407 




394 3 


052154 


010001 




3944 


052156 






3945 


05215^ 








052156 


104455 






052160 


001442 






052162 


060300 






052164 


012046 




3946 


052166 


005237 


002222 


3947 


052172 







f-EB-84 17; 
SIGNAL TEST 



Do 
Oo 
If 



14 



SEQ 176 



END 



loopback data NOT 
a Write Subsystem 
a Write Subsystem 
all Tope Status 2 
sipnals NOT-O Then 



5$; 



10$; 



12$; 



15$; 



2^$: 



BGNSUB 



■ data sent Then Print Error 
Write Misc to Reset Tape Status F -FLOPS 
READ STATUS 

UCER.IFMK.IHER) flip-flop 
Print Error 



I//////////// BEGIN SUBTEST /////// /.' 

T8.1: 

TRAP C$BSU6 



Write to TSSR register to soft initialise the controller 



JSR PC.SOFINXT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SF IMSG 



WRITE TO TSSR TO SOFT INITIALIZE 
BR IF SOFT INIT OKAY 
SAVE CONTENTS Of TSSH 
DEVICE FATAL DURING J.NIT 

TRAP 



Do WRITE CHARACTERISTICS to check 



.WORD 
.WORD 
.,'ORD 
Sh," ten 



CIERDF 
800 
SFItRR 
SriMSG 



CLR FATFLG 


i 


MOV 0T19PACKET.R4 


t 


JSR PC.WRTCHR 


I 


FORCERROR 12$ 




BCS 15$ 


i 


MOV R0.R1 


i 


NEXT.ERRNO 




ERRDF ERRN0.T19SSR.PKTSSR 


i 



for Extended Features 
CLEAR FATAL ERROR FLAG 
GET THE ADDRESS OF COMMANO PACKET 
DO WRITE CHARACTERISTICS COMMANO 

jOOOFORCE ERROR IF FORCER-1 
BR If CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 



DEVICE FATAL SSR 



INC FATFLG 
CKLOOP 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$tRDF 

801 

U9SSR 

PKTSSR 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



If Extended Features Hardware Sw i 
Do Write Subsystem Uritt Miscel 
MOV 0T19BFR.R1 
BIT *X2.EXTF,XST2(R1) 
BNE 30$ 
JSR PC.U9SEXT 
MOV 0T19PK2.R4 
MOV R4.TSDBCR5) 
JSR PCCHKTSSR 
FORCfRROR 22$ 
BCS 50$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRNO , T 192SSR . PK TSSR 



SET 
TRAP 



C$CLP1 



Extended Features 
ADDRESS 

SWITCH SET? 



tch Clear then 

laneous to Set 

MESSAGE BUFFER 

EXTENDED FEATURES 

BR IF YES 

SETUP PACKET FOR WRITE MISC INVERT 

GET WRITE SUBSYSTEM COMMAND PACKET 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 

.aSOFOKCE ERROR IF FORCER- 1 
BR IF CARRt SET (GOOO RETURN) 
SAVE CONTENTS Of TSSR 



■DEVICE FATAL SSR FAILED TO SET 



30$} 



INC 
CKLOOP 



FATFLG 





TRAP 


C$1 HOF 




.WORD 


802 




.WORD 


T1VV.R 




.WORD 


PKTSSR 


jSE I FATAL ERROR FLAG 






jLGOP ON ERROR, If FLAG 


SET 
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TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17; 14 
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 



SEQ 177 



052172 104406 



3948 








3949 


052174 


00503 f 


002222 


3950 


052200 


012704 


Otn"-'-0 


3951 


052204 


004737 


010662 


3952 


052210 






3953 


052224 


103407 




3954 


052226 


010001 




3955 


052230 






3956 


052230 








052230 


104455 






052232 


001443 






052234 


060243 






052236 


012046 




3957 


052240 


005237 


002222 


3958 


052244 








052244 


104406 




3959 








3960 


052246 


012700 


000100 


3961 


052252 


052700 


000040 


3962 


052256 


004737 


062042 


3963 


052262 


012704 


062500 


3964 


052266 


010465 


000000 


3965 


052272 


00473? 


016336 


3966 


052276 






3967 


052312 


103407 




3968 


052314 


010001 




3969 


052316 






3970 


052316 








052316 


104455 






052320 


001444 






052322 


060411 






052324 


012046 




3971 


052326 


005237 


002222 


39 72 


052332 








052332 


104406 




3973 








3974 








3975 








3976 








3977 


052334 


005000 




3978 


052336 


042/00 


000200 


3979 


052342 


042700 


000100 


3980 


052346 


042700 


000040 


3981 


052352 


004737 


062142 


3982 


052356 


012704 


062500 


3983 


052362 


010465 


000000 


3984 


052366 


004737 


016336 


3985 


052372 






3986 


052406 


103407 




398 7 


052410 


010001 




3988 


052412 






3989 


052412 








052412 


104455 






052414 


001445 






052416 


06056 3 






052420 


012046 





42$ » 



50$: 



62$: 



70$} 



82$s 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV 0T19PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0,R1 

NEXT. ERRNO 

ERRDF ERRNO, T19SSR, PKTSSR 



TRAP C$CLP1 
to select reserved unit 7 

, CLEAR FATAL ERROR FLAG 

j GET THE ADDRESS OF COMMAND PACKET 

t D0 WRITE CHARACTERISTICS COMMAND 

iSOOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 

.WORD 
.WORD 



CiERDF 
803 
T19SSR 
PKTSSR 



INC 




FAT 


FLG 


CKLOOP 






Do a 


Wr 


itc 


Subsystem 


MOV 




*NP 


.OUT.RO 


BIS 




eNP 


.L00P,R0 


JSR 




PC, 


T19SNPR 


MOV 




♦T19PK2.R4 


MOV 




R4, 


TSDBCR5) 


JSR 




PC, 


CHKTSSR 


FORCERROR 


62$ 


BCS 




70$ 




MOV 




RO, 


Rl 


NEXT 


ERRNO 





j SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SE i 

TRAP 
and 



C$CLP1 
Loopback 



WRITE NPR to set tape direction out 
j SET TAPE DIRECTION OUT 
{SET LOOPBACK ENABLE 
{SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND. PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jflSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
{SAVE CONTENTS OF TSSR 



ERRDF ERRNO, T194SSR, PKTSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERD>- 
804 

T194SSR 
PKTSSR 



5 SET FATAL ERROR FLAG 
tLOOP ON ERROR, IF FLAG 



SET 

TRAP CICLP1 
Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
Do Write Subsystem Write Format to CLEAR loopback signals oroup 2. 
(the loopback signals have to be cleared here o\je to the flip-flops 
that are set on a 1 to transition C IHER, IFMK, ICER) ) 

{WRITE O'S 

lIFAD MUST ALWAYS -0 
jITADO MUST ALWAYS -0 
{ITAD1 MUST ALWAYS -0 
{SETUP PACKET FOR WRITE CONTROL 
{GET WRITE SUBSYSTEM COMMANO PACKET 
iSE. THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

lOtfDFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
{SAVE CONTENTS OF TSSR 

tDEVICE FATAL SSR 



CLR 


RO 




B1C 


owe 


.IFAD.RO 


BIC 


owe 


.I0TAD,R0 


BIC 


*WC 


.I1TAD.R0 


JSR 


PC. 


T19WCTL 


MOV 


*T19PK2,R4 


MOV 


R4, 


TSDB(R5) 


JSR 


PC, 


CHKTSSR 


FORCERROR 


82$ 


BCS 


90$ 




MOV 


RO, 


Rl 


NEXT. 


ERRNO 




ERRDF 


ERRNO, T197SSR, PKTSSR 



FAILED TO SE f 




TRAP 


C It- RDF 


.WORD 


80 c » 


.WORD 


n\*:s ;r 


.WORD 


PKTSSR 



J 14 



TSVb • HARDWARE TESTS MACRO M1113 
TEST 8; SUBTEST 1: LOOPBACK CONTROL 



06-FEB-84 17:14 
SIGNAL TEST 



3990 
3991 

3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 



4002 
4003 

4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 



4014 
4015 

4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 



4 028 
4029 

4030 



052422 
052426 
052426 
052430 
052432 
052436 
052442 
052446 
052452 
052466 
0524 70 
0524 72 
0524 72 
0524 72 
0524 74 
0524 76 
052500 
052502 
052506 
052506 

052510 
052514 
052520 
052524 
052530 
052544 
052546 
052550 
052550 
052550 
052552 
052554 
052556 
052560 
052564 
052564 



052566 
052572 
052576 
052602 
0526O6 
052622 
052624 
052626 
052626 
052626 
052630 
052632 
052634 
052636 
052642 
052642 
052644 



005237 002222 



104406 
005000 
004737 
012704 
010465 
004737 

105407 
010001 



104455 
001446 
060632 
012046 
005237 

104406 

004737 
012704 
010465 
004737 

103407 
010001 



104455 
001447 
060300 
012046 
005237 

104406 



004737 
012704 
010465 
004737 

103407 
010001 



104455 
001450 
060*44 
012046 
00523 7 

104406 
004737 



90$ : 



062162 
062500 
OOOOOO 
016336 



102$: 



002222 



062020 
062500 
OOOOOO 
016336 



110$; 



122$: 



002222 



130$: 



062000 
062500 
OOOOOO 
016336 



132$: 



002222 



062240 



140$: 



FATFLG 



INC 
CKl.OOP 

CLR 

JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 110$ 

MOV R0.R1 

NF.XT.ERRNO 

ERRDF ERRN0.T198SSR. PKTSSR 



RO 

PC.U9WFKT 

0T19PK2.R4 

R4.TSDBCR5) 

PC.CHKTSSR 

102$ 



INC 


FAT 


TLG 








CKLOOP 












Do a Wr 


it* 


Subsystem 


Wr 


te 


M 


JSR 


PC 


T19RSF:cr 








MOV 


0T19PK2.R4 








MOV 


R4, 


TSDBCR5) 








JSR 


PC 


CHKTSSK 








FORCERROR 


122$ 








BCS 


130$ 








MOV 


RO 


Rl 








NEXT.ERRNO 










ERRDF 


ERRN0,Tl92SSR 


, PKTSSR 



INC FATFLG 
CKLOOP 

Do a Writs Subsystem 
If all Tape Statu*. 2 
signals NOT-0 Then 
JSR PC.T19SRD 
MOV $U9PK2,R4 
MOV R4,TS0BCR c O 
JSR PC.CHKTSSR 
FORCERROR 132$ 
BCS 140$ 
MOV RO.Ri 
NEXT.EPRNO 
ERRDF ERRNO, U93SSR, PKTSSR 



SEQ 178 



I SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
I SET FORMAT DRIVE DATA-0 
, SETUP PACKET FOR WRITE FORMAT 
{GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jOSOFORCE ERROR IF FP..'CER-1 
j BR IF CARRY SET (GOOD RETURN) 
l SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 



C$FRDF 
806 

T198SSR 
PKTSSR 



.WORD 
$SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
Misc to Reset Tape Status F -FLOPS 

jSETUP PKT FOR WRITE MISC Reset Tape Status F-FLOPS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET CGOOD RETURN") 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORO 
.WORD 
.WORD 
{SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 



READ STATUS 

(ICER.TFhK.IHER) flip-flop 
Print Error 



TRAP 



C$ERDF 
807 

T192SSR 
PKTSSR 



C$CLP1 



{SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE. 
{WAIT FOR SSR TO SET 

;8S0F0RCE ERROR IF FORCER- 1 
jBR IF CARRY SET CGGOD RETURN) 
:SAVE CONTENTS OF TSSR 



INC 
CKl OOP 

JSR 



FATFLG 



PC.T19SKTEXP 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
{SET FATAL ERROR FLAG 
si OOP ON ERROR, IF F! AG St T 

TRAP 



C$fcRDF 

808 

Tr>3SSR 

PKTSSR 



c j a p i 



SET WORDS 0-7 EXPD-RECV (.NOT TESTING) 



K14 
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4031 


052650 


012701 


060102 


4032 


052654 


012702 


062372 


4033 


052660 


011211 




4034 


052662 


042711 


002000 


4035 


052666 


042711 


001000 


4036 


052672 


042711 


000400 


4037 


052676 


016261 


000002 000002 


4038 


052704 


005000 




4039 


052706 


012701 


062352 


4040 


052712 


012702 


060062 


4041 


052716 


012703 


000024 


♦1042 


052722 


004 737 


011500 


4043 


052 726 






4044 


052736 


103404 




4045 


052740 






4046 


052 740 








052740 


104456 






052742 


001451 






052744 


061303 






052746 


013064 




404 7 


052750 








052750 


104406 




4048 








4049 


052752 


005037 


060014 


4050 


052756 


012703 


002752 


4051 


052762 


012300 




4052 


052764 


010337 


002316 


4053 


052770 


04270O 


000200 


4054 


052 774 


042700 


000100 


4055 


053000 


042700 


000040 


4056 


053004 


010037 


002312 


405? 








4058 








4059 


053010 


013700 


002312 


4060 


053014 


004737 


062264 


4061 








4062 


053020 


004 737 


062142 


4063 


053024 


012704 


062500 


4064 


053030 


010465 


000000 


4065 


053034 


004737 


016336 


4066 


053040 






4067 


053054 


10 '-40 7 




4068 


053056 


010001 




4069 


053060 






4070 


053060 








053060 


104455 






053062 


001452 






053064 


060563 






053066 


012046 




4071 


0530 70 


005237 


002222 


4072 


053074 








053074 


104406 




40/3 








40/4 








4075 








40/6 


0530 76 


015700 


002312 


4077 


053 102 


004 7 37 


062264 



152$ 



160$ 



7:14 






SEQ 179 




MOV 


0T19EXSTA.R1 




{GET EXPECTED READ STATUS 




MOV 


OT19BFSTA.R2 




iGET RECV READ STATUS 




MOV 


(R2).CR1) 




iSET EXPD WORD 48 - RECV TEMP 




BIC 


OSl.ICER.CRl) 




j SET EXPD ICER -0 




BTC 


OSl.IFMK.CRl) 




I SET EXPD IFHK -0 




BIC 


0S1.IHER.CR1) 




,SET EXPD IHER -0 




MOV 


2(R2),2CR1) 




{SET EXPD WORD 09 - RECV (NOT 


TESTING) 


CLR 


RO 




IHIGH RECV ADDRESS FOR CKMSG2 




MOV 


0T19BF'R,R1 




i LOW RECV ADDRESS FOR CKMSG2 




MOV 


0T19EXP.R2 




,EXPD ADDRESS 




MOV 


020. ,R3 




i NUMBER OF BYTES TO COMPARE 




JSR 


PC.CKMSG2 




{EXPD EQUAL RECV? 




FORCERROR 152S.N0TSSR 


j 830 




BCS 


160$ 




jBR IF YES 




NEXT, ERRNO 








ERRHRD 


ERRNO, T197CMP 


MSGLOOP 


iREPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 


CfERHRD 

809 

T197CMP 

MSGLOOP 


CKLOOP 






{LOOP ON ERROR, IF FLAG SET 

TRAP 


CtCLPl 



REPEAT FOR 
CLR 



200$ 



; aso 



ALL TEST PATTERNS 

T19PREV 
MOV 0TSTBLK.R3 

MOV CR3)*.R0 

MOV R3.TSTPTR 

BIC OWCIFAD.RO 

BIC OWC.IOTAD.RO 

BIC OWC.IITAD.RO 

MOV RO.DATA 

Do Write Subsystem Writ* 
CALL T19CNVT TO 
MOV DATA.RO 

PC.T19CNVT 



IN TSTBLK TABLE 

jINIT 1-0 TRANSITION FLAG 
{GET FIRST PATTERN ADDRESS 
{GET A TEST PATTERN 

TSTBLK 



Control 



JSR 



JSR 


PC 


T19WCTL 


MOV 


0T19PK2.R4 


MOV 


R4 


TSDBCR5) 


JSR 


PC 


CHKTSSR 


FORCERROR 


212$ 


BCS 


220$ 


MOV 


RO 


Rl 


NEXT 


ERRNO 





;SAVE POINTER INTO 
lIFAD MUST ALWAYS -0 
{ITADO MUST ALWAYS »0 
jITAOl MUST ALWAYS -0 
,SET DATA PATTERN 
to Drive loopback signals group 1, 
SETUP WRITE CONTROL PATTERN 

{GET TEST PATTERN 

{CONVERT PATTERN TO CONTROL DRIVE MASK 

{RO CONTAINS WRITE CONTROL DATA HERE 

jSETUP PACKET FOR WRITE CONTROL 

{GET WRITE SUBSYSTEM COMMANO PACKET 

{SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

jSOOFORCE ERROR IF FORCER- 1 
{BR IF CARRY SET ( GOOO RETURN) 



iAVE CONTENTS OF TSSR 



12$ 



ERRDF ERRNO, T197SSR.PKTSSR 



{DEVICE FATAL 



220$ 



{ q)S>0 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 

. WORD 



CU.HDF 

810 

1 197SSR 

PKTSSR 



{SET FATAL ERROR FLAG 
jLCOP ON ERROR, IF FLAG 



SET 
TRAP 



CtCLPl 



Do W.^ite Subsystem Write format to Drive loopback signals group , 

CALL T19CNVT TO SETUP WRITE CONTROL PATIERN 

MOV DATA.RO j GE I TEST PATTERN 

JSR PC.T19CNVT } CONVERT PATTERN TO FORMAT DRIVE 



L14 
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14 



4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 



4088 
4089 

4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 



4100 
4101 

4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 



053106 
C53U0 
053114 
053120 
053124 
053130 
053144 
053146 
053150 
053150 
053150 
053152 
053154 
053156 
053160 
053164 
053164 



053172 
053176 
053202 
053206 
053222 
053224 
053226 
053226 
053226 
053230 
053232 
053254 
053236 
053242 
053242 

053244 
053250 
053254 
053260 
053264 
0532/0 
0532 74 
053300 
053302 
053304 
053306 
053310 
053312 
053314 
053320 
053322 
053324 
053326 
053530 
053332 
053334 
053340 



000300 
004 737 
012704 
010465 
004737 

103407 
010001 



104455 
001453 
060632 
012046 
005237 

104406 

004737 
012704 
010465 
004737 

103407 
010001 



104455 
001454 
060344 
012046 
005237 

104406 

004 737 
012701 
012702 
013711 
013700 
013703 
012704 
040411 
030400 
001403 
030403 
001001 
0504 1 1 
012704 
040411 
030400 
001403 
030403 
001001 
050411 
012/04 
04O4H 



062162 
062500 
000000 
016336 



002222 



062000 
062500 
000000 
016336 



002222 



062240 
060102 
062372 
002312 
060014 
002312 
000400 



001000 



232$: 



240$: 



252$: 



260$: 



275$: 



SWAB 


RO 




JSR 


PC, 


, T19WFMT 


MOV 


0T19PK2.R4 


MOV 


R4 ( 


,TSDB(R5) 


JSR 


PC, 


CHKTSSR 


FORCERROR 


232$ 


BC5 


240$ 


MOV 


RO, 


,R1 


NEXT, 


ERRNO 




ERRDF 


ERRN0 I T198SSR,PKTSSR 



SEQ 180 



, WRITE FORMAT DATA RETURNED IN HIGH BYTE 

t SETUP PACKET FOR WRITE FORMAT 

{GET WHITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

iWAIT FOR SSR TO SET 

jSQDFORCE ERROR IF FORCER-l 
(BR IF CARRY SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



Do a Write Subsystem READ STATUS 

JSR PC.T19S&D 

MOV 0T19PK2.R4 

MOV R4.TSDBCR5) 

JSR PC, CHKTSSR 

FORCERROR 252$ 

BCS 260$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T193SSR, PKTSSR 



C$ERDF 

811 

T198SSR 
PKTSSR 



CICL.P1 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMANO PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{SSOFORCE ERROR IF FORCER-l 
tBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TS5R 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR. IF FLAG 



002000 



280$: 



If loopback data NOT- data sent 

JSR PC.T19SETEXP 

MOV 0T19EXSTA.R1 

MOV 0T19eFSTA,R2 

MOV DATA.(Rl) 

MOV T19PREV,R0 

MOV DATA.R3 

MOV *S1.IHER,R4 

BIC R4.1R1) 

BIT R4,R0 

BEQ 275$ 

BIT R4.R3 

BNE 2 75$ 

BIS R4.CR1) 

MOV 0S1.IFMK.R4 

BIC R4,(R1) 

BIT R4.R0 

BEQ 280$ 

BIT R4.R3 

BNE 280$ 

BIS R4.CRI) 

MOV 0Si.ICER.R4 

BIC R4.1KI) 



SET 
TRAP 



C$EHDF 
812 

T193SSR 
PKTSSR 



C$Cl.Pl 



Then Print Error 

{SET WORDS 7 EXPD-RECV (NOT TESTING) 

jGcT EXPECTED READ STATUS 

{GET RECV READ STATUS 

{SET EXPD WORD 08 TO TEST DATA FIRST 

{GET PREVIOUS DATA PATTERN 

{GET CURRENT PATTERN 

{SETUP IHER EXPECTED 



jSET EXPD 
{PREVIOUS 
jBR IF NO 
{CURRENT 
sBR IF NO 
l SET EXPD 



IHER 
-1? 

-0? 

IHFR 



•0 



1 



j SETUP IFMK EXPECTED 



jSET EXPD 
{PREVIOUS 
j BR IF NO 
^CURRENT 
jBR IF NO 
jSET FXPD 



IFMK 
•1? 

-Of 



-0 



1 



IFMK 

jF.TUP ICER EXPECTED 
EXPD ICER -0 



iSET 



M14 



TSVb 
TEST 
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4125 


05334? 


030400 




4126 


053344 


001403 




412/ 


053346 


030403 




4128 


053350 


001001 




4129 


053352 


050411 




4130 


053354 


011100 




4131 








4132 


053356 


012704 


004000 


4133 


053362 


050400 




4134 


053364 


03C437 


060014 


4135 


053370 


001403 




4136 


053372 


030403 




4137 


053374 


001401 




4138 


053376 


040400 




4139 


053400 


0527C0 


040000 


4140 


053404 


052700 


020000 


4141 


053410 


042700 


100000 


4142 


053414 


032712 


100000 


414 3 


053420 


001402 




4144 


053422 


052700 


100000 


4145 


053426 


010011 




4146 


053430 


016261 


000002 


4147 


053436 


005000 




4148 


053440 


012701 


062352 


4149 


053444 


012702 


060062 


4150 


053450 


012703 


000024 


4151 


053454 


00473 7 


011500 


4152 


053460 






4153 


0534 70 


103404 




4154 


053472 






4155 


0534 72 








053472 


104456 






053474 


001455 






053476 


061371 






053500 


013064 




4156 


053502 








053502 


104406 




4157 








4158 


053504 


004 737 


062020 


4159 


053510 


012/04 


062500 


416C 


053514 


010465 


000000 


4161 


053520 


004737 


016336 


4162 


05 5524 






41i\3 


053540 


103407 




4164 


053542 


010001 




4165 


053544 






4166 


053544 








053544 


104455 






055546 


001456 






053550 


060300 






053552 


012046 




416/ 


053554 


005237 


002222 


4168 


053560 








053560 


104406 




416 > 








4 WO 


053562 


004/3/ 


062000 


4171 


053566 


012704 


062500 



285$: 



288$: 



000002 



290$: 



302$: 



310C: 



322$: 



330$: 

i 



7:14 






SEQ 181 


BIT 




R4.R0 


1 PREVIOUS -1? 


BEQ 




2851 


{BR IF NO 


BIT 




R4.R3 


j CURRENT -07 


BNE 




285$ 


j BR IE NO 


BIS 




R4.CR1) 


iSET EXPO ICER -1 


MOV 




(Rl).RO 


,GET EXPO UORD 


If previous IIDENT-1 and current 


is IIDENT-1 then EXPO- els 


MOV 




0S1.IIDENT.R4 


iIIOENT 


BIS 




R4,R0 


l ASSUME EXPD-1 


BIT 




R4.T19PREV 


{PREVIOUS IIDENT-1? 


BEQ 




288$ 


jBR IF NO 


BIT 




R4.R3 


j IS CURRENT IIDENT-1? 


BEQ 




288$ 


iBR IF NO 


BIC 




R4.R0 


;SET EXPD-0 


BIS 




OS1.I2RES.R0 


IIRESV2 EXPD ALWAYS- 1 


BIS 




osi.iires.ro 


jIRESVl EXPD ALWAYS-1 


BIC 




osi.parerr.ro 


{IGNORE PARERR 


BIT 




0S1.PARERR.CR2) 


iIS PARERR SET IN RECV? 


BEQ 




290$ 


j BR IF NO 


BIS 




0S1.PARERR.R0 


j SET IN EXPD 


MOV 




R0.CR1) 


{SETUP FINAL EXPD IN WORD 08 


MOV 




2(R2),2(R1) 


{SET EXPD WORD 09 - RECV (NOT 


CLR 




RO 


;HIGH RECV ADDRESS FOR CKMSG2 


MOV 




0T19BFR.R1 


{LOU RECV ADDRESS FOR CKMSG2 


MOV 




0T19EXP.R2 


{EXPD ADDRESS 


MOV 




020.. R3 


{NUMBER OF BYTES TO COMPARE 


JSR 




PC.CKMSG2 


{EXPD EQUAL RECV? 


FORCERROR 302$,N0TSSR 


\VQD 


BCS 




310$ 


jBR IF YES 


NEXT 


ERRNO 




ERRHRD 


ERRNO , T19QCMP .MSGLOOP 


{REPORT ERROR 



TESTING) 



Subsystem Write Misc 



CKLOOP 

Do a Write 

JSR PC.T19RSFIF 

MOV 0T19PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 522$ 

BCS 330$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, T192SSR.PKTSSR 



jLOOP ON ERROR. IF FLAG 



TRAP CIERHRD 

.WOW 813 

.WORD T198CMP 

,UORD MSGLOOP 

SET 

TRAP C$CLP1 

to Reset Tape Status F -FLOPS 

;SETUP PKT FOR WRITE MISC Reset STATUS 

{GET WRITE SUBSYSTEM COMMAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

iWOOFORCE ERROR IF FORCER -1 

;BR IF CARRY SET CGOOD RETURN) 

{SAVE CONTENTS OF TSSR 



-.DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORD 
.WORD 
.WORD 



INC FATFLG 
CKLOOP 



{SET FATAL ERROR FLAG 
jLOOP ON ERROR. IF FLAG 



Do a 

JSR 
MOV 



Write 

PC 



Subsystem 

U*SRD 



READ STATUS 



SE T 
TRAP 



C IE RDF 
814 

T192SSR 

PKTSSR 



CSCL.P1 



0T19PK2.R4 



{SETUP PACKET FOR READ STATUS 

{GET WRITE SUBSYSTEM COMMAND "JACKET 
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N14 



SEQ 182 



4172 053572 


010465 


000000 


4173 053576 


004 737 


016336 


4174 05360? 






4175 053616 


103407 




4176 053620 


010001 




4177 053622 






4178 053622 






053622 


104455 




053624 


001457 




053626 


060344 




053630 


012046 




4179 053632 


005237 


002222 


4180 053636 






053636 


104406 




4181 053640 


004737 


062240 


4182 053644 


012701 


060102 


4183 053650 


012702 


062372 


4184 05*554 


011211 




4185 0: N,56 


042711 


002000 


4 Id-.. L 3662 


042711 


001000 


413 7 053666 


042711 


000400 


4188 053672 


016261 


000002 000002 


4189 053700 


005000 




4190 053'02 


012701 


062352 


4191 053706 


012702 


060062 


4192 053712 


012703 


000024 


4193 053716 


004737 


011500 


4194 053722 






4195 053732 


103404 




4196 053734 






4197 053734 






053734 


104456 




053736 


001460 




053740 


061303 




053742 


012350 




4198 053744 






053744 


104406 




4199 






4200 053746 


013737 


002312 060014 


4201 053754 


013703 


002316 


4202 053760 


020327 


003062 


4203 053764 


103002 




4204 053766 


000137 


052762 


4205 053772 






4206 






4207 053/72 






053772 






053772 


104403 




4208 






4209 053774 


00573 7 


002222 


4210 054000 


001402 




4211 054002 


004737 


017202 


4212 054006 






4213 






4214 






4215 






4216 







MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 342$ 
BCS 350$ 
MOV R0.R1 
NEXT, ERRNO 
342$: ERRDF ERRNO, T193SSR.PKTSSR 



INC FATFLG 
350$; CKLOOP 

JSR PC.U9SETEXP 

MOV *T19EXSTA,R1 

MOV 0T196FSTA.R2 

MOV C^2),(R1) 

BIC *S1.ICER,CR1) 

BIC OSl.IFMK.(Rl) 

BIC 0S1.IHER,(R1) 

MOV 2(R2),2CRi:) 

CLR RO 

MOV 4T19BFR.R1 

MOV $T19EXP,R2 

MOV $20., R3 

JSR PC.CKMSG2 
FORCERROR 362$ ,NOTSSR 

BCS 370$ 
NEXT, ERRNO 

362$ : SRRHRO ERRNO , T197CMP , MSGSTAT 



370$: CKLOOP 



400$ 



460$ 



MOV 


DATA.T19PREV 


MOV 


TSTPTR.R3 


CMP 


R3.0TBLEND 


BHIS 


400$ 


JMP 


200$ 



ENDSUB 



TST 
BFQ 
JSR 



FATMAi 

460$ 

PC.CKDROP 



jSCT THE PACKEi ADDRESS TO EXECUTE 
:WAIT FOR SSR TJ SET 

:S)S>DFORCE ERROR IF FORCER- 1 
j BR IF CARRY SET CGOOD RETURN) 
jSAVE CONTENTS OF TSSR 



} DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
815 

T193SSR 
PKTSSR 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



jSET 
} GET 
j GET 
j SET 
j SET 
;SET 
;SET 
;SET 
j HIGH 



SET 
TRAP 
WORDS 0-7 EXPD-RECV (NOT 
EXPECTED READ STATUS 
RECV READ STATUS 



C$CLP1 
TESTING) 



EXPD 
EXPD 
EXPD 
EXPD 
EXPD 
RECV 



WORD 
ICER 
IFMK 
IHER 
WORD 



$8 - RECV TEMP 



09 



RECV (NOT TESTING) 
ADDRESS FOR CKMSG2 
FOR CKMSG2 



LOW RECV ADDRESS 
EXPD ADDRESS 

NUMBER OF BYTES TO COMPARE 
EXPD EQUAL RECV? 
SSD 
j BR IF YES 

j REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERHRD 
816 

T197CMP 
MSGSTAT 

ctci.Pi 



SETUP PREVIOUS DATA FOR EXPD CALC. 

RESTORE CURRENT TSTBLK POINTER 

END OF TSTBLK? 

BR IF YES 

DO NEXT TSTBLK PATTERN 



x //////////// END SUBTEST ////////"/ 

1.10067: 

TRAP CSESUB 



AN1 FATAL ERRORS ? 

BRANCH V NOT 

TRY TO DROP THE UNIT 



Bl 



[. 



TSVS • HARDWARf 


n sts 


TEST H; 


5U8TES1 


It 1.01 


4 k :i * 






4.U8 






4.U*' 






4 J JO 






4 t \U 






4.W 






4.V* 






4.V4 






4.?JS 






4..V6 






4 t V ' 






•KVH 






4cV* 






4.^0 






4 t VM 






4.W 






4J5 5 






4 J 54 






4JV> 






4 J 56 






4J3.' 






4238 






4 c? 34 






4 C '40 






4 t >41 






4«?4r> 






4^41 






4<M4 






4^4 C > 






4?4#i 






4?4/ 






4 4 >4ft 






4 t »44 






4J r .O 






4.»M 






4.*V 






4JM 






4?54 


OS400f> 
0*>40O6 






0S4OO6 


104402 


4JSS 






4^56 


054010 




4 t >V 


054010 


004/3/ 


4? r ,fl 


OS4014 


103405 


4«>*>9 


054016 


010OC1 


4«?fiO 


0540^0 






0540^0 


104455 




05402? 


001460 




054024 


003652 




054026 


0120 34 


4^61 






4?6« J 


054030 


00501* 


4«»*,3 


054034 


012/04 


4?*,4 


054040 


004/3/ 


4 4 '*» B i 


054044 




4,'M, 


054060 


10*40/ 


426/ 


054062 


010Q01 



MACRO Mill 3 
»BACK CONTROL 



06 f IB 

SIGNAL 



64 l/sl4 

TEST 



SEU 18 3 



. SBTTl. TEST 8? SUBTEST 2} LOOPBACK READ/WRITE SIGNALS TEST 



TEST 8: SUBTEST 2: 

SUBTEST DESCRIPTION: 

This s^jbteat verifies th« Rted/Write data ioopbacW path. 
The Rssd/Write data signals are IR<?iO> and IW</jO> 
reepect i vely , 

TEST STEPS; 



REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Writ* to TSSR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to chsck for Extended Features Snitch 

If Extended Features Hardware Snitch Claar than: 

Oo Write Subsystem Write Mi ecellaneoue to Sat Extended featurs*. 
Do WRITE CHARACTERISTICS to eelect reeerved urn t 7 wd setup BUFFER 
Do a Write Subsystem WRITE N^R to set tape direction out and Lookback 
Do a WRITE NPR to set loopbecW and tape direction OUT 
Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
Do a READ FIFO with tape direction OUT to load tape cot write latch 
Do a WRITE NPR to set ioopbacW and tape direction IN 
Do a WttlTE FIFO with byte count equal to 1 and Tap* direction IN 

to strobe loopbeck data into FIFO. 
Do ■ READ FIFO with tape direction IN to reed data 
If Data read from FIFO MOT- to Data sent Th*n Print Error 
Oo a Write Subsystem READ STATUS 
If Input Ready NOW Th«n Print Error 
If Output Ready NOT-O Thsn Print Error 
If Data In Misa NQT-0 Th«n Print Error 



ENO 



015774 



j 
Mi 



BGNSUH i////////'/// BEGIN SUBTEST //// 

T8..>: 

TRAP CftRSuH 

Write to T 1 jSR register to soft inltiali/e the controller 



JSR 

BCS 
MOV 
f RRD* 



PC. SO* INI T 

101 

RO.Rl 

ERRNO.SFIEHR.SJ IMSti 



OO.V,V 

06^*50 

010662 



101 1 



IWRITE TO TSSR TO SOT INITlAl.I/fc 
iBR IF SO* T INIT 0«Ai 
iSAVF CONTENTS 0* TSSR 
iDEVICE FATAL DURING INIT 

TRAP 
,WO«0 
.WORD 
.WORD 

Do WRITE CHARACTERISTICS tO Qh%& 'or E*t»nded Pastures Snitch 
ClR FATFLXi | CLEAR FATAL ERROR K AG 

MOV *T19PACKET , M4 ibET THE ADDRESS Of COMMAND PACK* t 

JSR PC.WRTCrJR i DO WRITE CHARACTERISTICS COMMANC 

fORCERRQR U>* jttSO^ORCE ERROR V KH*CfcR*l 

BC 1 . IM iBR IF CARRt SET tUKX) RETURN) 

MQV R0»R1 i SAVE CONTENTS OF TSSR 



CHRP' 

Hlh 

^ I ERR 
sr insii 



CIS 



\m Hywmh T \>w.w>m& o *m>iRiip ^v^t 



SEQ 1A4 



4268 054064 








NEXT, ERRNO 






4269 054064 






12* s 


ERRDF ERRNO. mSSR,PKTSSR 


1 Dt:VICC FATAL 55R FAILED TO SET 




054064 


104455 








TRAP 


C$FRDF 


054066 


001461 








.WORD 


817 


0540/0 


06024 5 








.WORD 


T19SSR 


054072 


012046 








.WORD 


PKTSSR 


4270 054074 


005237 


002222 




INC FATFl.G 


( SET FATAL ERROR FLAG 




42/1 054100 






15$: 


CKL.OOP 


jLOOP ON ERROR. IF FLAG SET 




054100 


104406 








TRAP 


C$CLP1 


42 7 J" 






1 


If F.xt«nd*d F#atura» Hardware S 


.wStch Claar than: 




42 75 






1 


Do Writ* Subayatam Writ* M 5 acal lanaoua to Sat E^tandad F« a tura*. 


4 2 74 054102 


012 701 


062352 




MOV *T19eFR,Rl 


1 MESSAGE BUFFER ADDRFSS 




42 75 054106 


032761 


000200 000012 


BIT *X2.EXTF,XST2(Rl) 


jEXTENDED FEATURES SWITCH SET? 




42 76 054114 


OO1026 






BNE 30$ 


iBR IF YES 




4277 054U6 


004737 


062202 




JSR PC. T19SEXT 


jSETUP PACKET FOR WRITE MISC INVERT 


4278 054122 


012704 


062500 




MOV 0T19PK2.R4 


iGET WRITE SUBSYSTEM COhMANO PACKET 


4279 054126 


010465 


000000 




MOV R4,TSDB(R5) 


,set the packet aodrfss to execute 


4280 054132 


004737 


016336 




JSR PC.CHKTSSR 


iWAIT FOR SSR TO SET 




4281 054156 








FOfcCERROR 22$ 


iMOFORCE ERROR IF FORCER-1 


4282 054152 


103407 






BC5 30$ 


iBR IF CARRY SFT ( GOOO RETURN) 




4285 054 154 


010001 






MOV R0.R1 


jSAVE CONTENTS OF TSSR 




4284 054156 








NEXT, ERRNO 






4285 054156 






22$: 


ERRDF ERRNO , T 1 92SSR , PK T SSR 


iDEVXCE FATAL SSR FAILED TO SET 




054156 


104455 








TRAP 


C$ERDF 


054160 


001462 








.WORD 


818 


054162 


060300 








.WORD 


T 192 SSR 


054164 


012046 








.WORO 


PKTSSR 


4286 054166 


005257 


002222 




INC FATFLG 


l SET FATAL ERROR FLAG 




428 7 054172 






30$ j 


CKLOOP 


il.OOP ON ERROR. IF FLAG SET 




0541/2 


104406 








T RAP 


CICLP1 


4258 






J 


Do WRITE CMARACTERIS: CS to seUct r« f trvtd u* i t 7 




4289 054174 


012704 


062550 




MOV ♦T19PACKET.R4 


iGET THE ADDRESS OF C0M1AND PACKET 


4290 054200 


004737 


010662 




JSR PC.WRTCHR 


jDO WRITE CHARACTERISTICS COMMANO 


4291 0542O4 








FORCERROR 42$ 


lOfiOFORCE ERROR IF FORCER'l 


4292 054220 


105407 






BC5 50$ 


iBR IF CARRY SET (GOOO RETltfN) 




4295 054222 


010001 






MOV R0.R1 


jSAVE CONTENTS OF TSSR 




4294 054224 








:* XT. ERRNO 






4295 054224 






42$: 


ERRDF ERRNO, T19SSR ,PK TSSR 


jDFVICE FATAL SSR FAILED TO SE T 




054224 


104455 








TRAP 


CIERDF 


054226 


001463 








.WORD 


819 


054250 


06024 5 








.WORD 


T19SSR 


054232 


012046 








.WORD 


PKTSSR 


4296 054234 


005237 


002222 




INC MUFl.li 


j SET FATAL ERROR FLAG 




429/ 054240 






50$: 


CKl.QOP 


l LOOP ON ERROR, IF FLAG SET 




054240 


X04406 








TRAP 


C$ClPl 


4298 
4299 
4 500 


















1 REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 




4 501 05424 2 


01?705 


002 752 




MOV #TSTBIK,R5 


iGET FIRST PATTERN AODRFSS 




4 502 054246 


012557 


002512 


100*1 


MOV (R5)*,DATA 


tGET A TEST PATTERN 




4 503 054252 


04275 7 


17 7400 002 


512 


Bi: #tC<377> t DATA 


iDATA IS BtTE 




4 504 054260 


010557 


002316 




MOV R3.T5TPTR 


»SETUP CURRENT TSTBIK POINTER 




4 305 






l 


Do • WRITE NPR .0 «at iQOptottCk 


and tap* d fraction OUT 




4 506 054264 


012700 


000100 




MOV ♦NP.OUT.RO 


jSET TAPE DIRECTION OUT 




4 507 0542/0 


05? 700 


000040 




his *np. loop.ro 


j SET LOOPBACK 




4^08 0542 74 


004/5 7 


062042 




JS« PC.T19SNPW 


1 SETUP T19PK2 FOR WRUt NPH 




430$ 0^4 500 


Old 704 


Q62500 




HUV «T19PK2 t R4 


lULT WRITE SUBiilSrtM COMMAND PACMT 



Mi ^mm^;^oo P ^mm^i9f ^nalV^? 



1)1 Li 



SEQ IAS 



4510 


054 304 


010465 


000000 




MOV R4,TSDB(RS) 


j SET THE PACKfc'l ADDRFSS TO EXECUTE 


43)1 


054310 


004737 


016336 




JSR PC.CHKTSSR 


jWATT FOR SS3 TO SET 


4312 


054314 








FORCERROR 1021 


iMOFORCE ERROR IF FQRCER-1 
i&R IF CARRY SET (GOOD RFTURN'J 


4315 


054330 


105407 






BC5 105$ 


4514 


054332 


0100O1 






MOV R0.R1 


I SAVE CONTENTS Of TSSR 


4315 


054334 








NEXT. ERRNO 




4316 


054334 

054334 
054 336 
054 540 
054 34? 


104455 
001464 
060411 
012046 




102$! 


ERRDF ERRNO , T 194 SSR t PK T SSR 


jDEVICE FATAL SSR FAILED JO SET 

TRAP CIERDE 
.WORD 820 
.WORD T 194 SSR 
.WORD PKTSSR 


431 .' 


054344 


005237 


002222 




INC FATFLCi 


(SET FATAL ERROR H.Al, 


4318 


054 350 
054 350 


104406 




105$: 


CK1.00P 


jLOOP ON ERROR, IF Fi.AG SET 

TRAP C5CLP1 


451^ 








i 


Do a WRITE FIFO with byte count 


equal to 1 and Tape direction OUT 


4-;?o 


054352 


012700 


OOOOO 1 




MOV •l.RO 


iWPITE 1 BYTE 


4321 


054 356 


012701 


002512 




MOV *0ATA,RI 


jFIFO WRITE DATA ADDRESS 


4522 


054362 


004737 


062106 




JSR PC.T19WTIF 


iSETUP T19PK2 FOR W*ITE FIFO 


4323 


054 566 


012704 


062500 




MOV 0U9PK2.R4 


iGET WRITE SUBSYSTEM COMMAND PACKET 


4 5?4 


0543/2 


010465 


<X*VKK> 




MOV R4,T5DB(R5) 


iSF.T THE PACKET ADORFSS TO fcXECUTI 


-.525 


0543/6 


0O4737 


016*36 




JSR PC.CHKTSSR 


jWAIT FOR SSR TO SET 


4 326 


05440? 








FORCERROR 107$ 


jSWOFORCE ERROR IF F0RCFR-1 


432/ 


054416 


10540/ 






BC5 110$ 


iBR IF CARRY SET (GOOD RETURN) 


4528 


054420 


010OO1 






MOV R0.R1 


(SAVE C0NTENT5 OF TSSR 


4520 


054422 








NEXT, fcRRNO 




4330 


054422 
054422 
054424 
054426 
0544 30 


104455 
001465 
060454 
012046 




107*: 


ERRDF ERRNO, U95SSR, PKTSSR 


lOEVlCE FATAL SSR FAILED TO SET 

TRAP CfERDF 
.WORD 621 
.WORD T I 45 SSR 
.WORD PKT5S" 


4551 


0544 32 


005237 


002222 




INC FATF'LG 


t 5t T FATAL ERROR FLAG 


4532 


054436 
0544 36 


104406 




UOli 


CKl.OOP 


il.OOP ON ERROR. IF FtAG SET 

TRAP CiCi.Pl 


4533 








J 


Do a READ FIFO with tape direct 


Ion (X»T to load tape out nr I te latch 


4 5 54 


054440 


012/00 


OOOOO 1 




MOV el.RO 


iStT READ BYTE COUNT 


4555 


054444 


004/37 


062066 




JSR PC,U<W IF 


i SETUP T19PK2 FOR READ F If 


4536 


054450 


012/04 


062500 




MOV ell9PK?,«4 


iGET WPlTf. SU8STSTEM COHMANO PACKET 


4 35 7 


054454 


010465 


000000 




MOV H4,TS0B(R5) 


;SFT ThL PACKET ADDRESS TO t'XfCUTJ 


4 558 


054460 


004 7 37 


016336 




JSR PC.CHKTSSR 


I WAIT fOH SSR TO SET 


4 5 59 


054464 








FORCERROR 122$ 


sWJOFORCE ERROR V FORCFR-1 


4 540 


054 500 


10540/ 






BCS 130$ 


iBR IF CAHRi SET ( GOOO RETURN) 


4 541 


054502 


010001 






MOV RO.Rl 


jSAVF CONTENTS Of TSSR 


4542 


054504 








NEXT .ERRNO 




4343 


054504 

054504 
054506 
054510 
05451? 


104455 

001466 
060520 
012046 




1231 1 


ERRDF ERRNO. U96SSR, PKTSSR 


(DEVICE FATAL. SSR FAILED TO SET 

TRAP CftERDF 
. WORD 822 
.WORD n%:, l R 
.WORD PKTSSR 


4 54 4 


054514 


005237 


002222 




INC FATFI i; 


(SET FATAL ERROR FtAG 


4 545 


054520 
054520 


104406 




1*0$: 


C*l OOP 


j I OOP ON ERROR, IF Fi AG SET 

TRAP C*Cl$*i 


4 546 








j 


Do a WRITE NPR to set loopback 


and tape direction IN 


4 54 7 


05452? 


005000 






ClR RO 


jCLR NP.OUT TO SFT TAPE DIRECTION IN 


4^4 8 


054524 


052700 


000040 




HIS 0NP.IOOP.RO 


j SET L0OP8ACK 


4^49 


054550 


004 / 5 / 


06204? 




JSR PC, ri9'JNPR 


jSFToP T19PK2 FOR WRITE NPR 


4 350 


0545 54 


012/0* 


062500 




MOV *T19PK?,«4 


l(»F T WRITE SUBS 1 STEM COMMAND PAC* • T 


4551 


054540 


010465 


000000 




MUV R4.TSDBCR5) 


I SET TME. PACKET ADDRESS TU t XtCUU 



Fl. 



t: 



TSV5 • HARDWARE 


TESTS 


MACRO t 


TEST fl: SUBTEST 2: t.OOPBACK RE 


4352 054544 


004 737 


016336 


4 553 054 550 






4 554 054 


10340/ 




4 555 054 


010001 




4 556 0545/0 






4557 054570 






0545 70 


104455 




0545 n» 


001467 




054574 


0604 1 1 




0545/6 


012046 




4 558 054600 


005237 


002222 


4559 054604 






054604 


104406 




4 5*0 






4561 054606 


012/00 


000001 


4 56c? 05461c? 


012701 


002312 


4565 054616 


004/37 


062106 


4 564 054622 


012704 


062500 


4 565 054626 


010465 


000000 


4 566 054632 


004737 


016336 


4 56/ 054656 






4 568 054652 


10340/ 




4 569 054654 


010001 




4 5/0 054656 






4 571 054656 






054656 


104455 




054660 


0014/0 




054662 


060454 




054664 


012046 




4 5/2 054666 


00523/ 


002222 


45/5 0546/2 






054672 


104406 




45/4 






4575 






4 5 76 0546/4 


012/00 


000001 


457/ 054 700 


004/3/ 


062066 


4 5/8 054/04 


012704 


062500 


4 579 054/10 


010465 


000000 


4580 054714 


004737 


016336 


4581 054/20 






4 582 054/34 


103407 




4 585 054/36 


010001 




4384 054/40 






4385 054/40 






054/40 


10445b 




054742 


0014/1 




054744 


060520 




054/46 


012046 




4 586 054 /SO 


005237 


002222 


4 38/ 054/54 






054/54 


104406 




4 388 054/56 


004 73/ 


062240 


4 589 054/62 


012/01 


060102 


4 590 054/66 


012/02 


062 5/2 


4^91 054 7/2 


013/11 


002 512 


4 392 054 //6 


016261 


000002 


4393 r iS004 


001>000 





M1113 06-FEB 84 17:14 
READ/WRITE SIGNALS TEST 



1425s 



162 J j 



170$: 



182*! 



190*5 



0Q0002 



vJSR PC.CHKTSSR 

FORCERROR 142$ 

DCS 1501 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T194SSR,PKTSSR 



SEQ 186 



iVJAIT FOR SSR TO SE T 

laSOFORCEi ERROR IF F0«CE*R»1 
i OR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS 



OF 



j DEVICE FATAL SSR 



FAILED TO SET 
TRAP 

.WORD 
.WORD 
.WORD 



C*ERDF 

T 194 SSR 
PKTSSR 





INC 




FATFLG 


150*; 


CKl OOP 




1 


Do a 


WRITE FTFO wi 




MOV 




♦ l.RO 




MOV 




aOATA.Rl 




JSR 




PC.T19WFIF 




MOV 




0T19PK2.R4 




MOV 




R4,TSDB(R5 




JSR 




PC.CHKTSSR 



FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



jSFT 



SET 
TRAP 
Top* direction 



IN 



C*CLP1 



162* 



FORCERROR 

BCS 170* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.U95SSR.PKTSSR 



byte count aqvjal to 1 and 
iWRITF 1 BtTE 
iFIFO WRITE DATA ADDRESS 
iSETUP T19PK2 FOR WRITE FIFO 
jGET WRITE SUBSYSTEM COMMAND PACKET 
jSET THE PACKET ADDRESS TO EXECUTE 
jWATT F0« SSR TO SET 

iSSOFORCE ERROR IF FORCER "I 
{HR IF CARRl SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
. WORD 
.WORD 
,WORD 



INC 
CKLOOP 



FATFLG 



I SE T FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



Do a READ FIFO n I th tar* diract 

If Data raad fro*i FIFO NOT" to 

MOV »1,R0 

JSR PC. U9RF IF 

MOV *T19PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 1B2* 

BCS 1901 

MOV R0.R1 

NEXT,£RRNO 

ERRDF tRRNO.Tl^SSR.PKTSSR 



C IE RDF 

8c>4 

T195SSR 

PKfSSR 



CJCLP1 



INC 
CKl OOP 

JSR 

MOV 
MOV 
MOV 
MOV 
CLR 



FATFl (', 



PC, T19SF TF XP 
»U9£ XSTA.Rl 
0T19BFSIA.R2 

DATA,(Rr, 

2(R2),2(Ri) 

RO 



i on IN to raad data 

Data aant Th«n Print Error 
I SET READ BYTE COUNT 
jSETUP T19PK2 FOR READ FIFO 
jGET WRITE SUBSYSTEM COMMAS) PACKfc f 
I SET 1HE PACKET ADDRESS TO EXECUH 
jWAIT FOR SSR TO SET 

j»8DF0«CE ERROR IF FORCER-1 
j BR IF CARR* SET CGOOO RETURN) 
,SAvE CONTENTS Of TSSR 



IDEVICE 



I SL T 

I I OOP 

I SET 

» ge r 

I GE T 
l Sf T 
ISM 
tHlGH REL'V ADDRESS FOR CKMSli. 



CE FATAL SSR FAILED TO SF T 


TRAP 


CURDF 


.WORD 


825 


.WORD 


Tl9f>.',SR 


.WORD 


PKTSSR 


'•"*U Al FRHOR Fl At/, 




ON ERROR, IF Fl AG SET 




TRAP 


C*Cl Fl 


WORDS / EXPD-RECV vNOT 


TE ST1NG1 


EXPECTED READ STATUS 




RECV READ STATUS 




FXPD UORO 08 • DATA 




E.xPD WORD #9 - RECv V NO T 


TESTING) 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 



lb 



SEQ 187 



4 594 
4595 
4596 

4597 
4598 
4 599 
4400 
4401 



440? 

4405 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4415 
4414 
4415 



4416 

4417 

441H 
44 19 
4420 
4421 
4422 
4425 
4424 
4425 
4426 
4427 
4428 
4429 
4450 
44 51 
44 52 
4455 
4434 



4431i 



055006 
055012 
055016 
055022 
055026 
055056 
055040 
055040 
055040 
055042 
055044 
055046 
055050 
055050 



055052 
055056 
055062 
055066 
05507? 
055106 
055110 
055112 
055112 
055112 
055114 
055116 
055120 
05512? 
055126 
055126 
055150 
055154 
055140 
055144 
055146 
055150 
055154 
055160 
055164 
055166 
0551/2 
055176 
055202 
055206 
055216 
055220 
055220 
055220 
055222 
055224 
055226 
055250 
055250 



012701 
012/02 
012705 
004757 

105404 



104456 
0014/2 
061460 
015/42 

104406 



004757 
012704 
010465 
004757 

105407 
010001 



104455 
001475 
060544 
012046 
005257 

104406 
004757 
012701 
012702 
012221 
011211 
0527U 
0427U 
042711 
005000 
012701 
012 702 
012705 
004 757 

105404 



104456 
001474 
061220 
012550 

104406 



062552 
060062 
00002? 
011500 



062000 
062500 
000000 
016336 



002222 



062240 
06010? 
062572 



000020 
000040 
000200 

062 552 
060062 

000024 
011500 



202$ j 



2101: 

5 



212*: 



2201: 



?32«: 



MOV 0T19BfR,Rl 

MOV 0T19CXP.R2 

MOV 018,, R5 

JSR PCCKMSG2 

FORCERROR 202* .NOTSSR 

BCS 210$ 

NEXT.ERRNO 

ERRHRD ERRN0.T199CMP.MSGSUB 



ADDRESS 



FOR CKMSG2 



jLOU RECV 

lEXPD 

j NUMBER OF BYTF5 TO COMPARE 

lEXPO EQUAL RECV? 

{ BR IF ITS 



j REPORT ERROR 



CKl.OOP 

Do * Writ* SubvyiUm READ STATUS 
IF Input R#ady NOT -I Then Pr\ 
IF Output R«ady NOT-O Then Pr i 
If Data In Mi*. NOT-O Then Pri 



j LOOP ON ERROR, IF FLAG 



1RAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



CSt.RHRO 

826 

T199CMP 

MSG5UB 



C$CLP1 



NOT -I 
NOT-O 
NOT-O 
PC.T19SRD 
0T19PK2.R4 
R4.TS0BCR5) 
PC.CMKTSSR 



JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 220$ 

MOV R0.R1 

NEXT.ERRNO 

ERROF" bRRN0,U93S5R,PKTSSR 



INC FA1FLG 
CKIOOP 

JSR PC.T19SETFXP 

MOV *T19EXSTA,R1 

MOV 0T196FSrA t R2 

MOV (R?).,(R1)» 

MOV (R2),(Rl) 

BIS *S2.INR0i,(Rl) 

BIC *S2.0UTRDy.(R1) 

BIC ♦S2.0IM.CH'.) 

CLR MO 

MOV 0Tl9tttR,Rl 

MOV 0U9EXP.R? 

MOV 9<>0. ,R^ 

JSR PC.CKMSG? 

FORCERROR t 32* .NOTSSH 

BCS 240$ 

NEXT.ERRNO 

FRRHRD ERRN0,T196CMP t MSGSTAT 



nt Error 

nt Error 

nt Error 

I SETUP PACKET FOR READ STATUS 

(GET WRITE SUBSYSTEM COMMAND PACKE 

I SET THE PACKET ADDRESS TO EXECUTE 

iWAlT FOR SSR TO SET 

iSaDFORCE ERROR IF FORCER* 
jPtt IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



(DEVICE EATAL SSR 



FAILED TO S6 T 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDf 
82 7 

T195SSR 
PKTSSR 



SI T FATAL ERROR FLAG 

LOOP ON ERROR. IF FLAG Si 1 

TRAP 
SET WORDS 7 EXPD-RECV (NOT 
GET EXPECTED REAO STATUS 
GET RFCV REAO STATUS 
SET EXPO WORD 08 - RECV fEMP 
SET EXPD WORD 09 • RECV TEMP 
SET EXP INPUT READY- 1 
SET EXP OUTPUT REAOY- O 
SET EXP DATA IN MISS - 
HIGH RECV AODRESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPD AODRESS 

NUMBER OF BYTES TO COMPARE 
EXPD EQUAL RECV? 

BR IF tES 



C$Cl PI 
TESTING) 



240 S: CKLUOP 



j REPORT ERROR 



I LOOP ON ERROR, IK FLAG 



TRAP 

.WORD 
,UORO 
.WORD 

5* r 

TRAP 



c$t RHRD 
«28 

I i**«iCMP 

MSi.^TmT 

CJCIP1 



Gib 



T5V5 - HARDWARE 
TB5T ttj SUBTEST 



TESTS MAfRO MlllS Q6-FFR 84 17-14 
<?: LUOPBACK READ/WRlTf. SIGNALS TtST 



SEQ 188 



44 56 
445/ 
4438 
4439 
4440 
4441. 
4442 
444 5 
444-' 
4445 
4446 



44>; ; 

4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
'458 
4459 
4460 
4461 
44o2 
4465 
4464 
4465 
4466 
44*-. / 
AAbH 
4469 
44 70 
44 n 
44 12 
44 M 
44 /4 
44^5 
44 76 
447/ 
44 ,'8 
44/9 
^480 
4481 
44 H2 
4483 
44 84 
4485 
4486 
448/ 
4488 
44ti9 



055232 
055242 
055246 
C55252 
C35254 
055260 



05 



260 
..'60 
055260 



055262 
0S5266 
0552/0 
055274 



013703 
02032 7 
103002 
000137 



104403 

005737 
001402 
004737 



002316 
003062 

054246 



255$ 



FORCEXIT 255$ 
MOV TSTPTR.R3 
CMP R5,0TBLEND 
BHIS ?5 e I 
JMP 100$ 



ENDSUB 



■RESTORE CURRENT TSTBLK POINTER 
j END OF TSTBl.K? 

iBR if rrs 

jOO ANOTHER TSTBLK PATTERN 



l//////////// END SUBTEST ////////'/ 

I 10070: 

TRAP C$ESUB 



002222 
017202 



TST 


V AHLG 


BEO 


260$ 


JSR 


PC»CKDROP 



260$ 



,ANr f ATAl. ERRORS i 

i BRANCH IF NOT 

j TRY TO DROP THE UNIT 



.SBTTL TEST 8s HuRTEsT 3: LOOPBACK WRITE STROBE" TEST 



0552/4 
055274 



TEST 8: 



SUBTEST 3: 



SUBTEST DESCRIPTION: 

This subtest verifies the Writ* Strobe loopbacV path 
con strobe data from the FIFO to the Data lines. 
The si^al IRESV3 drives IUSTR (write strobe) to writ* 
data from the FIFO to the tape data out latch, 

TEST STEPS: 

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Urit* to TSSR register to soft i. : tiali/e the controller 

Do WRITE CHARAC (ERISTICS to check fo« Extended Feature*; Switch 

If Extended Features Hardware Switch Cie-^r then: 

Do Write Subsystem Write MI scellaneoue \o Set Extended Features. 
Do WRITE CHARACTERISTICS to eelect reeerveo unit 7 and setup Bl^EER 

Write Subsystem WRITE NPR to set tape direction out and Loopback 
NPR to set loopback and tape direction OUT 
FORMAT to set IRESV3- - > IWSTR * 1 

FIFO with byte count equal to 1 and Tape direction OUT 
FORMAT to set IRESV3- - * IWSTR - to load wr'te data latch 
FORMAT to set IRESV3- -> IWSTR • 1 
NPR to set loopbacW and tape direction IN 
y\*Q with byte count equal to 1 and Tap* direction IN 
loopbacW data into FIFO. 

read data 

Then Print Error 



Do 
Do 
Do 
Do 
Do 
Do 
Do 
Do 



WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRTTF 
WRITE 
strobe 



a 

a 
to 

Do a READ FIFO with t.ipe direction IN to 
If Data read from FIFO NOT- to Data sent 



END 



BCiNSUB 



j //////////// 



BEL IN SUBTEST // 
T8.5: 



1' 



^> 



TSV5 - HARDWARE TESTS MACRO Ml 113 06 -FEB -94 17: 14 
TES1 8: SUHTEST 5: l.OOPBACK WRITE STROBE; TEST 



SEQ 189 



4400 
4491 
449c 5 
4405 
4494 
4405 



4406 

440T 
4408 
4400 
4500 
4 50L 
4502 
4503 
4S04 



450S 
4506 

4 507 
4508 
4500 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
45lf 
451H 
4 510 
4520 



4521 

4522 

4523 

4524 
4525 
4526 
452/ 
4 528 
4520 
4530 



0552 74 104402 



055276 
055276 
055302 
055304 
055306 
055306 
055310 
055312 
055314 

055316 
055322 
055326 
055332 
C55346 
055350 
055352 
055552 
05535? 
055354 
055356 
055360 
055362 
055366 
055366 



055 570 
0555 74 
055402 
055404 
055410 
055414 
055420 
055424 
055440 
055442 
055444 
055444 
055444 
055446 
055450 
055452 
0554 54 
055460 
055460 

055462 
055466 
0554 7? 

055506 
055510 
05' ' 12 

r ;>*->5i2 

055512 



004/37 
103405 
010001 

104455 
001474 
003652 
012034 

005037 
012/04 
004 737 

103407 
010001 



104455 
001475 
^6024 3 
012046 
005237 

10440t, 



012/01 
032/61 
001026 
004 73 7 
U12/04 
010465 
004 737 

10340/ 
010OO1 



104455 

001476 
060300 
012046 
005237 

104406 

012 704 
004 737 

103407 
010001 



104455 



015774 



5${ 



062330 
010662 



10$: 



12*5 



002222 



062352 

000200 000012 



15$: 



O62202 
062500 
OOOOOO 
016336 



22$: 



002222 



062 3 50 
010662 



30$; 



42$: 



Write to 

JSR 
BCS 
MOV 
ERRDF 



register to soft initialize? the controller 



TRAP 



C$BSUB 



PC.SOl- INIT 

10$ 

R0.R1 

ERRNO, SFIERR.SFIMSG 



INITIALIZE 



Do WRITE: CHARACTERISTICS to 

Cl.R FATFLG 

MOV 0T19PACKET.R4 

JSR PC, WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, U9SSR.PKTSSR 



jWRITE TO TSSR TO SOFT 

j BR IF SOFT INIT OKAY 

j SAVE CONTENTS OF TSSR 

jDEVICE FATAL DUPING INIT 

TRAP C$ERDF 

. WORD 828 
.UORD SFIERR 
.WORD SriMSG 
check for Extended Features Switch 

iCLEAR FATAL ERROR FLAG 

jGET THE ADDRESS Of COMMAND PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

56WOFORCE ERROR IF FORCER-1 

jBR IF CARRY SET CGOOO RETURN) 

tSAVE CONTENTS OF TSSR 



jDEVICf FATAL S5R 



FAILED TO SET 
TRAP 
.WORD 



C$ERO. T 
829 

T10SSR 
PKT5SR 



INC 


FATFLG 






CKLOOP 






If E> 


^tended Features 


Hardware 


Do 


Write Subsystem 


Write 


MI 


MOV 


eri<>eFR t Ri 






RIT 


♦X2.EXTF. XST2CR1) 




BNE 


30$ 






JSR 


PC, T19SEXT 






MOV 


0T19PK2.R4 






MOV 


R4, TSDBCR5) 






JSR 


PC.CHKTSSR 






FORCERROR 22$ 






BCS 


30$ 






MOV 


R0.R1 






NEXT 


.ERRNO 







j SET FATAL ERROR FLAG 
jLOOP ON ERROR. IF FLAG 



SET 
TRAP 



C$CLPl 



Extended Features. 
ADDRESS 

SWITCH SET? 



*itch Clear then 
Miscellaneous to Set 
, MESSAGE BUFFER 
■EXTENDED FEATURES 
jBR IF YES 

, SETUP PACKET FOR JMITE MISC [NVERf 
;GET WRITE SUGSYSfEM COMMANO PACKET 
{SET Th£ PACKET ADDRESS TO EXECUTE 
jUAIT FOR SSR TO SET 

jBSDFORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



ERRDF ERRNO, Tl925SR,PKTSSR 



jDEVICE FATAL SSR 



FAILED TO 
TRAP 



5E T 



INC 
CKLOOP 



FATf LG 



jSET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



.WORD 
.WORD 

.WORD 

StT 
iRAP 



to 



Do write characteristics 

MOV eTl^PACKET ,R4 

JSR PC, WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0,R1 

NEXT .ERRNO 

F RRDF ERRNO , T 19SSR . PK T SSR 



select r 
} GET 
I DO 

j BR 



C$ERDF 

830 

T192SSR 

PKTSSR 



C$CL.Pi 



eserved un i t 7 

THE ADDRESS OF Cr**1AN0 PACKET 
WRITE CHARACTERISTICS COMMAND 

jWfiDFORCE ^RROR IF FORCER "I 
IF CARRt SE r (GOOO RETURN) 



jSrtVE CONTENTS OF TSSR 



j DEVICE TATAl SSR 



FAILED TO SET 
TRAP 



C$ERDK 



Il r i 



TSV5 - HARDWARE 


TESTS 


MACRO M1113 


TEST 8: 


SUBTEST 3 j l.OOPBACK WRITE 




0-35514 


0014 7? 






055516 


06024 3 






055520 


012046 




4531 


055522 


005237 


002222 


4532 


055526 








055526 


104406 




4533 








4534 








4535 


055530 


012703 


002752 


4556 


055534 


012337 


002312 


4537 


055540 


042737 


17/400 002 


4536 


055546 


010337 


002316 


4539 








4540 


055552 


012700 


000100 


4541 


055556 


052700 


000040 


4542 


055562 


004737 


062042 


4543 


055566 


012704 


062500 


4544 


055572 


010465 


000000 


4545 


055576 


004 737 


016336 


4546 


055602 






454 7 


055616 


103407 




4548 


055620 


010001 




4549 


055622 






4550 


055622 








055622 


104455 






055624 


001500 






055626 


060411 






055630 


012046 




4551 


055632 


005237 


002222 


4552 


05S636 








055636 


104406 




4553 








4554 


055640 


012700 


000002 


4555 


055644 


0O4737 


062162 


4556 


055650 


012704 


062500 


4557 


055654 


010465 


000000 


4558 


055660 


0O4737 


016336 


4559 


055664 






4560 


055 700 


10340/ 




4561 


055/02 


010001 




4562 


05570* 






4563 


055704 








055704 


104455 






055/06 


001501 






055710 


060632 






055/12 


012046 




4564 


055/14 


005237 


002222 


4565 


055/20 








055720 


104406 




4566 








456 7 


055 722 


012700 


000001 


4568 


055/26 


012701 


002312 


4569 


055732 


004/37 


062106 


45/0 


055/36 


012/04 


062500 


45/1 


055 742 


010465 


000000 


45 n* 


055/46 


004 737 


016336 


45/3 


055/52 







06 FEB 84 17:14 
STROBE TEST 



SEQ 190 



50$ 



INC 
CKl.OOP 



FATFLG 



l SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



.WURD 
.WORD 
.WORD 

SET 
TRAP 



831 

T19SSR 

PKTSSR 



CSCLP1 



REPEAT FOR 
MOV 



312 



100$ 



102* 



105$ 



112$ 



120* 



MOV 

8IC 

MOV 

Do a 

MOV 

BIS 

JSR 

MOV 

MOV 

JSR 



ALL TEST PATTFRNS IN 
aTSTBLK.RS 
(R3)*,DATA 

*tC<377>.DATA 
R3.TSTPTR 
WRI1E NPR to set loopback 
GNP.OUT.RO 
♦NP.LOOP.RO 
PC.T19SNPR 
GT19PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 



T5TBLK TABLf- 

|GET FIRST 



PATTERN ADDRESS 



FORCERROR 102* 

BCS 105* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, U94SSR, PKTSSR 



jGET A TEST PATTERN 
jDATA IS BYTE 

jSETUP CURREN1 TSTBLK POINTER 
and tape direction OUT 
,SET TAPE DIRECTION OUT 
I SET LOOPBACK 

jSETUP T19PK2 FOR WRITE NPFV 
l GET WRITE SUGSYSTEM COMMANO PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jOaOFORCE ERROR IF FORCER- 1 
jBR IF CARRY 5ET (GOOD RETURN) 
iSAVE CONTENTS Of TSSR 



iDEVICE FATAL SSR 



INC 


FAT 


FLG 




CKl.OOP 






Do a 


WRITE 


FORMAT tc set 


IRESV3- 


MOV 


♦WF 


■.I3RES.R0 




JSR 


PC. 


T19WFMT 




MOV 


0T19PK2.R4 




MOV 


R4. 


TSDBCR5) 




JSR 


PC. 


CHKTSSR 




FORCERROR 


112* 




BCS 


120* 




MOV 


RO. 


,R1 




NEXT 


.ERRNO 







jSET FATAL FRROR FLAG 
j LOOP ON ERROR, IF FLAG 



FAILED TO SE 
TRAP 
.WORD 
.WORD 
.WOR'u 



SET 
TRAP 



CIERDK 

852 

T19dSSR 

PKTSSR 



C*CLP1 



•>IWSTR • 1 

jIRESV3»-»rwSTR-l 

jSETUP T9PK2 FOR WRITE FORMAT 

jGET WRITE SUBSYSTEM COMMAND PACKET 

{ SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

jaaOFORCE ERROR IF FORCER- 1 
,BR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 



ERRDF ERRNO, T198SSR, PKTSSR 



INC 


FATFl.G 




CKl.OOP 








Do a WRITE 


f IF 


wit 


MOV 


«1. 


,R0 




MOV 


♦0ATA.R1 




JSR 


PC, 


, T19WF 


IF 


MOV 


0T19PK2. 


R4 


MOV 


R4, 


,TSDB(R5) 


JSR 


PC, 


.CHKTS 


iSR 


FORCERROR 




132 



byte count 



jDEVICE FATAL SSR FAILED TO SE I* 




TRAP 




C*ERDF 


.WORD 




833 


.WORD 




T I 93 SSR 


.WORD 




PKTSSR 


jSET FATAL ERROR FLAG 






ll.OOP ON ERROR. IF FLAG SET 






TRAP 




C*CLP1 


equal to 1 and Tape direction 


OUT 


jWRITE 1 BYTE 






;FIFO WRITE DATA ADDRESS 







i SETUP T19PK2 FOR WRITE FIFO 
i GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EMO'TF 
IWAIT FUR SSR W SET 

jyWOFURCE ERRUR IF FORCER 3 ! 



Jib 



TSV5 - HARDWARE 


TESTS 


MACRO * 


TEST 8: SUBTEST 3: L.OOPBACK WF 


4574 055 766 


103407 




4575 055770 


010001 




4576 055772 






4577 055772 






055772 


104455 




055774 


001502 




0557 76 


060454 




056000 


012046 




4578 056002 


005237 


002222 


4579 056006 






056006 


104406 




4560 






4581 056010 


005000 




4582 056012 


004737 


062162 


4583 056016 


012704 


062500 


4584 056022 


010465 


000000 


4585 056026 


004737 


016336 


4586 056032 






4587 056046 


103407 




',588 056050 


010001 




4589 056052 






4590 056052 






056052 


104455 




056054 


001503 




056056 


O60632 




056060 


012046 




4391 056062 


005237 


002222 


4592 056066 






056066 


104406 




4593 






4594 056070 


012700 


000002 


4595 0560/4 


004737 


062162 


4596 056100 


012704 


062500 


459 7 056104 


010465 


000000 


4598 056110 


004737 


016336 


4599 056114 






4600 056150 


10340 7 




4601 056152 


010001 




460? 056154 






4603 056154 






056134 


104455 




056136 


001504 




056140 


06063? 




056142 


012046 




4604 056144 


005237 


002222 


4605 056150 






056150 


104406 




4606 






4b0/ 






4608 056152 


005000 




4609 056154 


052700 


000040 


4610 056160 


004 737 


06204? 


4611 056164 


012 704 


062500 


4612 056170 


010465 


000000 


4613 0561 74 


004/37 


016336 


4614 05^200 






4615 <*"• 14 


103407 





M111S 06 -FEB -84 17-14 



STROBE TEST 



132$: 



172*: 



180$: 



BCS 140$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , t 195SSR , PKTSSR 



SEQ 191 



iBR IF CARRY SET (GOOD RETURN) 
l SAVE CONTENTS OF TSSR 



[DEVICE FATAL SSR 



TAILED TO SET 
TRAP 

.UORD 
.WORD 
.WORD 





INC 


FATFLG 


140$: 


CKLOOP 


i 


Do a 


WRITE FORMAT to set IRE: 




CLR 


RO 




JSR 


PC.T19WFMT 




MOV 


*T19PK2,R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




FORCERROR 152$ 




BC r . 


160$ 




MOV 


R0.R1 




NEXT, 


ERRNO 


152$: 


ERRDF ERRNO, T198SSR, PKTSSR 



tSET FATAL ERROR FLAG 
[LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
834 

T1955SR 
PKTSSR 



C5CLP1 



>*>IW5TR ■ 
iSET IRESV3--*IWSTR»0 
l SETUP T9PK2 FOR WRITE FORMA! 
[GET WRITE SUBSYSTEM COMMAND PACKET 
[SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 





INC 




FATFLG 


160$: 


CKLOOP 




i 


Do a 


WRITE FORMAT to 




MOV 




*WF.I3RES,R0 




JSR 




PC.T19WFMT 




MOV 




0T19PK2.R4 




MOV 




R4,TSDB(R5: 




JSR 




PC.CHKTSSR 



j SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
835 

T198SSR 
PKTSSR 



C$CLP1 



17H* 



FORCERROR 

BCS 180$ 

MOV R0.R1 

NEXT .ERRNO 

ERRDF ERRNO, T198SSR, PKTSSR 



set IRESV3->>IWSIR - 1 

JIRESV5— *IWSTR-1 

[SETUP !>PK2 FOR WRITE FORMAT 

jGET WRIi! SUBSrSTEM COMMANO PACKET 

[SET THE r.ACKET ADDRESS TO EXECUTE 

»WAIT FOR " SR TO SET 

jSttOFORCE ERROR IF FORCER- 1 
j BR IF CARRi SET (GOOO RETURN) 
jSAVfc CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



[DEVICE FATAL SSR FAILED TO SET 

TRAP 

.WORD 
.WORD 
.WORD 



;SET FATAL ERROR FLAG 
[LOOP ON ERROR. IF FLAG 



SET 

TRAP 



C$ERDF 
8 36 

T 198 SSR 
PKTSSR 



CSCLP1 



Do a WRITE NPR to set loopback 

CLR RO 

BIS ONP.LOOP.RO 

JSR PC.T19SNPR 

MOV 0T19PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 



h ORCERROR 
BCS 190$ 



182$ 



and tap* direction IN 
[CLR NP.OUT TO SET TAPE DIRECTION IN 
iSET LOOPBACK 

[SETUP T19PK2 FOR WRITF NPR 
;GET WRITE SUBSYSTEM COMMAND PACKF 1 
jSET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

iSA*>ORCt ERROR IF FORCER -1 
iBR IF CARRI SET CGOOO RETURN) 



Kli3 



TSV5 • HARDWARE TESTS MACRO M1113 06 FEB 84 17;14 
TEST 8: SUBTEST 3: L00PBACK WRITE STROBE TEST 



4616 
4617 
4616 



4619 
4620 

4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 



4633 
4634 

4635 
4636 
463? 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 



4646 
464 7 

4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 



056216 
056220 
056220 
C56220 
056222 
056224 
056226 
056230 
056234 
056234 

056236 
056242 
056246 
056252 
056256 
056262 
056266 
056302 
05630^ 
056306 
056306 
056306 
056310 
056312 
056314 
056316 
056322 
056322 

056324 
056330 
056334 
056340 
056344 
056350 
056364 
056366 
056370 
056 3/0 
0563/0 
0563 72 
056374 

0563 76 
056400 
056404 
056404 

056406 
056412 
056416 
056422 
056426 

0564 34 
0564 36 
056442 
056446 



010001 



104455 
001505 
060411 
012046 
005237 

104406 

012700 
012701 
004 7 37 
012704 
010465 
004 737 

10340? 
010001 



104455 
001506 
060454 
012046 
005237 

104406 

012700 
004 737 
012704 
010465 
004737 

10340? 
010001 



104455 
001507 
060520 
012046 
005237 

104406 

004/3? 
012/01 
012702 
013711 
016261 
005000 
012701 
012/02 
012703 



002222 



000001 
002312 
062106 
062500 
000000 
016336 



002222 



000001 
062066 
062500 
000000 
016336 



002222 



062240 
060102 
0623/2 
002312 
000002 

062352 

060062 
000022 



182$: 



190$ 



202$: 



230$ 



000002 



MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T194SSR, PKTSSR 



SEQ 192 



{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



TAILED TO SET 
TRAP 
.WORD 

.WORD 
.WORD 



C$fRP>' 
837 

T194SSR 
PKTSSR 



iSET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG 



Do a WRITE FIFO 

MOV Ol.RO 

MOV 0DATA.R1 

JSR PC.T19WFIF 

MOV *T19PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 202$ 

BCS 210$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,U95SSR, PKTSSR 



Tape 



TRAP 
di rect ion 



IN 



C$CLP1 



with byte count equal to 1 and 

jWRITE 1 BYTE 
{FIFO WRITE DATA ADDRESS 
{SETUP T19PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
jSET THE PACKET ADDRESS TO EXECUTE 



j WAIT FOR SSR TO SE \ 

l OaOFORCE ERROR IV FORCER-l 
tBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



jDfcVICE FATAL SSR 



FAILbU TO SET 
TRAP 
.WORD 
.UORD 
.WORD 





INC 


FATFLG 


210$: 


CKLOOP 




I 


Do a READ FIFO with tape d i r, 




MOV 


• l.RO 




JSR 


PC.T19RFIF 




MOV 


OT19PK2.R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTS5R 




FORCERROR 222$ 




BCS 


230$ 




MOV 


RO.Rl 




NEXT.ERRNO 


222$: 


ERRDF 


ERRNU.T196SSR, PKTSSR 



,SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 



CiERDF 

838 

T195SSR 

PKTSSR 



C$CLP1 



INC 


FATFLG 


CKLOOP 




If Data 


read from FIFO 


JSR 


PC, U9SFTEXP 


MOV 


eri9EXSTA,Pl 


MOV 


*T19BFSTA,R2 


MOV 


0ATA,CR1 ) 


MOV 


2(R?).2(R1) 


CLR 


RO 


MOV 


3T19B* R.Rt 


MOV 


OT19EXP.R2 


MOV 


01d.,R3 



;ion IN to read data 
iSET READ BYTE COUNT 
{SETUP T19PK2 FOR READ FIFO 
,GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{SSOFORCE ERROR IF F0RCER*1 
iBR IF CARRY SET (GOOD RETURN) 
i SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED 10 SET 

TRAP CIERDF 

.WORD 839 
.WORD T196SSR 
.WORD PKTSSR 

iSET FATAL ERROR FLAG 

iLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

NOT* to Data aent Then Print Error 

iSET WORDS 0/ EXPD-RECV (NOT TESTING) 

{GET EXPECTED READ STATUS 

jGET RECV READ STATUS 

iSET EXPD WORD 08 - DATA 

jSET EXPD WORD 09 • RECV (NOT TESTING) 

{HIGH RECV ADDRESS FOR CKMSG2 

: 10W RECV ADDRESS FOR CKMSG2 

iFXPD ADDRESS 

{NUMBER OF BtTES TO COMPARE 



TSV5 
TEST 



Ll!3 



HARDWARE 



_ TESTS MACR. 
6: SUBTEST 5: LOOPBACK WR 



H111S 26-FEB-84 17:14 
RITE STROBE TEST 



SEQ 193 



4658 
4659 
4660 
4661 
4663 



4663 

4664 
4665 
4666 
4667 
4668 
4669 
4670 
46/1 
4672 
4673 



4674 
4675 
4676 
4677 
4678 
46/9 
4680 
4681 
468.? 
4683 
4684 
4685 
4686 
468/ 
4688 
4689 
4690 
4691 
4692 
*693 
4694 
4695 
4696 
469 7 
4698 
4699 



056452 
056456 
056466 
0564 70 

0564 70 
056470 
056472 
0564/4 
0564 76 
056500 
056500 



700 
/Ol 
702 
/03 
704 
/OS 
706 
707 



056502 
056512 
056516 
056522 
056524 
056530 

056530 
056530 
056530 

056532 
056536 
056540 
056544 



004737 011500 
103404 



104456 
001510 
061543 

01374? 



242$: 



JSR PC.CKMSG2 

FORCERROR 242$ .NOTSSR 

BCS 250$ 

NEXT.fcRRNO 

ERRHRO ERRN0,T19WSTR,MSGSUB 



250$: CKLOOP 



104406 



013703 002316 

02032/ 003062 
103002 

000137 055534 



104403 

005737 002222 

001402 

004737 017202 



lEXPD EQUAL RECV? 

tsao 

I BR IF YES 
I REPORT ERROR 



{LOOP ON ERROR, IF FLAG 



TRAP 


CJERHRD 


.WORD 


840 


.WORD 


T19WSTR 


.WORD 


MSGSUB 


SET 





TRAP 



C$CLP1 



255$ 



FORCEXIT 255$ 
MOV TSTPTR.R3 
CMP R3.0TBLEND 
BHIS 255$ 
JMP 100$ 



ENDSUO 



{830 

jRESTORE CURRENT TSTBLK POINTER 

t END OF TSTBLK? 

jBR IF YES 

I DO ANOTHER TSTBLK PATTERN 



\//////////// END SUBTEST ////////// 

1.10071: 

TRAP C$ESUB 



260$ 



TST 
BEQ 
JSR 



FATFl.G 

260$ 

PC.CKDROP 



;ANY FATAL ERRORS ? 

; BRANCH IF NOT 

;TRY TO DROP THE UNIT 



; *♦ 

; TEST 



.SBTTL TEST 0: SUBTEST 4 LOOPBACK READ STROBE TEST 



8s SUBTEST 4 



SUBTEST DESCRIPTION: 

This subtest verifies the Read Strooe loopback path 
can strobe the data f.-om the Data lines to the FI r O. 
The signal IRESV4 drives IRSTR (read strobe) to write 



TEST 



from the data lines to the FIFO. 
STEPS; 



REPEAT FOR 
BEGIN 
Uritc 



All TEST 



IN TSTBLK TABLE 



to TSSR register to soft initialize the controller 
Do URITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit / and setup BUFFER 



Do 
Do 
Do 
Do 
Do 
Do 
Do 



Write Subsystem WRITE NPR to set tape direction out and Loopback 
WRITE NPR to set loopback and tape direction OUT 
WRITE FORMAT to set IRESV4 ■-> IRSTR - 1 
WRITE FIFO with byte count equal to I and 



READ FIFO with tape direction OUT to load 
WRITE NPR to set loopback and tape direct 
WRITE FORMAT to set IRi:SV4 • • >IRSTR - to 



Tope di rect i on 
tape out wr i te 
on IN 
wr i te loop data 



OUT 
latch 

to FIFO 



M15 



TSV5 - HARDWARE TESTS MACRO M1113 C6-FEB-84 17:14 
TEST St SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 194 



4 708 
4/09 
4710 
4711 
47'? 
47. 5 
4714 



4715 
4716 
4717 
4 718 
4719 
4720 



4721 
4 722 
4723 
4724 
4725 
4 726 
4727 
4728 
4 729 



4730 
4731 

4 732 
4733 
4 734 
4/35 
4 736 
4737 
4 738 
4739 
4740 
4 741 
4742 
4743 
4744 
4 745 



4/46 
474? 

4 748 



056544 
056544 
056544 

056546 
056546 
056552 
056554 
056556 
056556 
056560 
056562 
056564 

056566 
056572 
056576 
056602 
056616 
056620 
056622 
056622 
056622 
056624 
056626 
056630 
056632 
056636 
056636 



056640 
056644 
056652 
056654 
056660 
056664 
056670 
056674 
056710 
056712 
056714 
056714 
056714 
056716 
056720 
056722 
056724 
056 730 
056730 



004737 

103405 
010001 

104455 
001510 
003652 
012034 

005037 
012704 
004737 

103407 
010001 



104455 
001511 
060243 
012046 
005237 

104406 



012701 
032761 
001026 
004 73 7 
012704 
010465 
004 737 

103407 
010001 



104455 
001512 
060300 
012046 
005237 

104406 



Do a WRITE FORMAT to set IRESV4- - >IRSTR < 

Cto strobe loopback data into FIFO.) 
Do a READ FIFO with tape direction IN to 
If Data read From FIFO NOT- to Data sent 



read 
Then 



data 
Print 



Error 



END 



015774 



5$; 



002222 
062330 
010662 



10$: 



12$: 



002222 



062352 
000200 

062202 
062500 
000000 
016336 



15$: 



000012 



22$: 



002222 



30$: 



BGNSU6 



I //////////// BEGIN SUBTEST ////////// 

T8.4: 

TRAP C$BSUB 
Write to TSSR register to soft initialize the controller 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SFIMSG 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV 0T19PACKET.R4 

JSR PC.URTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T19SSR, PKTSSR 



, WRITE TO TSSR TO SOFT INITIALIZE 

}BR IF SOFT INIT OKAY 

{SAVE CONTENTS OF TSSR 

I DEVICE FATAL DURING INIT 

TRAP C$ERDF 
.WORD 840 
.WORD SFIERR 
.WORD SFIMSG 
to check for Extended Features Switch 

t CLEAR FATAL ERROR FLAG 

j GET THE ADDRESS OF COMMAND PACKET 

}D0 WRITE CHARACTERISTICS COMMAND 

joWOFORCE ERROR IF FORCER- 1 

i BR IF CARRY SET (GOOD RETURN) 

j SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



KATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



•SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



SET 
TRAP 



If Extended Features Hardware Switch Clear then 
Do Write Subsystem Write Miscellaneous to S«t 



C$ERDF 
841 
T19SSR 
PKTSSR 



C5CLP1 



*T19BFR,R1 
*X2,EXTF,XST2CR1) 
30$ 

PC, T19SEXT 
0T19PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 
22$ 



MOV 

BIT 

BNE 

JSR 

MOV 

MOV 

JSR 

FORCERROP 

BCS 30$ 

MOV R0.R1 

NEXT .ERRNO 

ERRDF ERRNO, T192SSR, PKTSSR 



Extended 
AODRESS 

SWITCH SET? 



INC 
CKLOOP 



FATFLG 



Features. 
I MESSAGE BUFFER 
j EXTENDED FEATURES 
I BR IF YES 

{SETUP PACKET FOR WRITE MISC INVERT 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET 1HE PACKET ADDRESS TO EXECUTE 
jWAIT TOR SSR TO SET 

jQQOFOnCE ERROR IF FORCER- 1 
jBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



SET FATAL ERROR F 
LOOP ON ERROR, IF 



FAILED TO SET 




TRAP 


CSERDF 


.WORD 


842 


.WORD 


Tl^JSSR 


.WORD 


PK1SSR 


LAG 




FLAG SET 




TRAP 


CSCl.Pl 



Do WRITE CHARACTERISTICS to select reserved unit 7 



N15 



TSV5 - HAPOWARF TESTS MACRO MU13 06-FEB-84 17:14 
TEST 8: SU8TES * 4 LOOPBACK READ STROBE TEST 



SEQ 195 



4749 
4 750 

4751 
4752 
4753 
4 754 
4 755 



4 756 
4757 

4758 

4759 
4 760 
4761 
4 762 
4763 
4 764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 



4776 
4777 

4778 
4779 
4780 
4781 
478? 
4783 
4784 
4785 
4 786 
4 78 7 
4788 



4 /OS 
4 790 



056732 
056736 
056742 
056756 
056760 
056762 
056762 
056762 
056764 
056766 
056770 
056772 
056776 
056776 



057000 
0570C.4 
057010 
057016 

057022 

057026 

057032 

057036 

057042 

057046 

057052 

057066 

057070 

057072 

057072 

05707'' 

0570 

0570 

05 7100 

057102 

057106 

057106 

057110 
057114 
057120 
057124 
057130 
057134 
057150 
057152 
057154 
057154 
057154 
057156 
057160 
05716? 
057164 
0571 70 
057170 



012704 
004 737 

103407 
010001 



104455 
001513 
060243 
012046 
005237 

104406 



012703 
012337 
042737 
010337 

oi': 700 

052700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001514 
060411 
012046 
005237 

104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001515 
060632 
012046 
005237 

104406 



062330 
010662 



002222 



000001 
062162 
062500 
000000 
016336 



00222^ 



42$: 



MOV 0T19PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO , T 19SSR , PKTSSR 



;GET THE ADDRESS OF COMMAND PACKET 
iDO WRITE CHARACTERISTICS COMMAND 

jaSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN; 
{SAVE CONTENTS OF TSSR 



lOEVICE FATAL SSR 



002222 



002752 

002312 

177400 002312 

002316 

000100 
000040 
062042 
062500 
000000 
016336 



50$ J 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



i SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
843 
T19SSR 
PKTSSR 



C$CLP1 



REPEAT FOR 

MOV 



IN 



100$ 



102$ 



105$ 



112$ 



MOV 

BIC 

MOV 

Do a 

MOV 

BIS 

JSR 

MOV 

MOV 

JSR 



ALL TEST PATTERNS 
0TSTBLK.R3 
CR3)* .DATA 
$tC<377>,DATA 
R3 TSTPTR 
WRITE* NPR to set loopbock 
4NP.0UT.R0 
ONP.LOOP.RO 
PC.T19SNPR 
GT19PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 



FORCERROR 102$ 

BCS 105$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO, T194SSR, PKTSSR 



TSTBLK TABLE 

jGET FIRST PATTERN ADDRESS 
{GET A TEST PATTERN 
{DATA IS BYTE 

;SETUP CURRENT TSTBLK POINTER 
ond tope direction OUT 
jSti TAPE DIRECTION OUT 
j SET LOOPBACK 

{SETUP T19PK2 FOR WRITE NPR 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jSSOFORCE ERROR V F0RCER*1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 
TRAP 

.WORD 
.WORD 
.WOHD 



INC 


FA1 


'FLG 


CKLOOP 




Do a 


WRITE 


FORMAT to 


MOV 


OUF. I4RES.R0 


JSR 


PC, 


, T19WFMT 


MOV 


*Ti 


k 9PK2,R4 


MOV 


R4, 


, TSDBCR5) 


JSR 


PC, 


.CHKTSSR 


FORCERROR 


112$ 


BCS 


120$ 


MOV 


RO, 


,R1 


NEXT 


.ERRNO 





;5ET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
844 

T194SSR 
PKTSSR 



C$CLP1 



set IRESV4-»>IRSTR - 1 

{IRESV4-->IRSTR-1 

{SETUP T9PK2 FOR WRITE FORMAT 

;C r .T WRITE SUBSYSTEM COMMAND PACKET 

jSET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

i<3oX)F0RCE ERROR IF FORCER-1 
; BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



ERRDF ERRNO, T198SSR, PKTSSR 



;UEVICE FATAL SSR 



120$ 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 

.WORD 
.WORD 



{St T FATAL ERROR K.AG 
{LOOP ON ERROR. IF FLAG 



St T 

TRAP 



ClfcHDF 

845 

T 19<$ViH 

PKTSSR 



$CLP1 



tilb 



TSV'.. HAROWWRF. USTs MhCRU Mm 3 06 -FEB 84 
TEST 8: S16TFST 4 l.OOPBACK READ STROBE TEST 



4 ;<n 

4 792 
4/^3 
4 7^4 
4,'<>5 
4796 

4 f 9; 

4 .'*)« 
4 .'<*** 

4800 
4801 

any j 



4805 
4 804 

4d05 
4906 
4007 

4doa 

4809 
4810 
-811 
4812 
4813 
48' 4 
4815 



4816 

481 7 

4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
482' 
4828 
4829 



4 8 50 
48<i 

48?? 



05 71 U 

05 7l ? 6 
05 7202 
05.V06 
05 7212 
05 7216 
OS/i'.-V 
05.V36 

05 /240 

05 7242 
05 7242 

05 :*?«.? 

05/244 
05 7246 

05 7250 

05 7252 
o>5 W6 
05 7256 

05 7260 
057264 

05 72 70 
05 72 74 
057 300 
0* 7 504 
05 7 32Q 

05 / S24 
05 7 324 
05 7 324 
05 7 326 
05*350 
05M32 
05/334 
05 7340 
05 7 540 

05 7 342 

057344 
05M5C 
05 7 554 
05 7 360 
05 7 564 
057570 
05 7404 
05 7406 
05/410 
05 7410 
05 74 10 
05/4 12 
057414 
05/4 16 
05/420 
05/4/4 
0VM<£4 



012700 
012701 
004757 
0127O4 
010465 
004737 

103407 
010001 



i04455 

(>01516 
060454 
012046 
00525 7 

104406 

012700 
004737 
012704 
010465 
00473/ 

10540/ 
010001 



104455 
001517 
060520 
0J2O46 
0052 37 

104406 

005OO0 
052700 
004737 
012/04 
010465 
004737 

10340/ 
010O01 



OO0001 
002312 
062106 
062510 
CKK>000 
01633b 



002222 



000001 
062066 

O6250O 
OOOOOO 
016336 



000040 
062042 
062500 
OOOOOO 
016336 



104455 
001520 
0604 1 1 
012046 
0052 3 / 00222c' 

104406 



I 






17-14 



Do a 

MOV 

MOV 

JSR 

MOV 

MOV 

jsn 



WRITE Flh'O *ith byte count 
01, RO 
♦0ATA.R1 
PC. T IS*" IF 
♦ Tl?PK2,H4 
R4.TSDBCR5) 
PC.CMKTSSR 



FORCERROR 
BCS 1401 

MOV ^O.R. 

NEXT .ERRNO 



13?$ 



SEQ 196 



•ojoal to 1 artd Tapa direction OUT 

jWRITE 1 BYTE 

,FIF0 WRITE DATA ADDRCSS 

jSETuP T19PK2 FOR WRITE FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

,SET THE PACKET ADDRESS TO FXFCUTF. 

iWAIT FOR SSR TO SET 

iSfiOEORCE l RROR IE "ORCER-l 
,BR If CARRY SET (U/"0 RF.Ti.fcVO 
j SAVE CONTENTS OF T; ' ■••"' 



132$: ERRDF ERRNO, U95SSR.PKTSSR 



iDEVICE FATAL SSR 





INC FATFLCi 


140$ J 


CKLOOP 


1 


Do a READ FIFO with 




MOV #1,R0 




JSR PC.T1WFIF 




MOV #T;9TK2,R4 




MOV R4 # TSD6(R5> 




JSR PC.CHKTSSP 




FORCERROR 152 




BCS 1601 




MOV RO.Rl 




NEXT. ERRNO 



FAILED Tv SET 




TRAP 


CIERDE 


.WORD 


846 


.WORD 


T19SSSR 


.WORD 


PKTSSR 


LAG 




FLAG SET 




TRAP 


CtCLPl 


* out writ* 1 


atch 



l SET FAML ERROR F 
jlDOP ON ERROR, IF 

tap* direction OUT to load ti 

l SET READ BYTE COUNT 

jSCTuP T19PK2 FOR READ FIFO 

iGET WRITC SUBSYSTEM COMMAND PACKET 

, SET THE PACKET ADORESS TO EXECUTE 

iWAIT FOR SS* TO SET 

lOSOTORCE ERROR IF FORCER- 1 
,BR IF CARRY SET (COCO RETURN) 



iSAVE CONTENTS OF TSSR 



15£$i ERRDF ERRNO, U965SR.PKTSSR 



iDEVICE FATAL SSR 



INC 


FATFLG 


1601: CKLOOP 


i Do • 


WRITE tfPR to •> 


Cl.R 


RO 


BIS 


*t*MOOP,RO 


JSR 


PC.T19SNPR 


MOV 


♦T19PK2.R4 


MOV 


M4, TSD8(R5) 


JSR 


PC,C*<TSSR 


FORCERROR 182 


BCS 


1 90 I 


MOV 


MO. HI 


NE*T 


.ERRNO 



iSH FATAL ERROR FLAG 
1 1 OOP ON ERROR. IF Ft AG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 

YRA? 



DIRECTION IN 
NPR 



loopfcocU dnd tap* direct Jon IN 

l Cl.R ^.CXJT TO SET TAPE 

,SET LOOPBACK 

i SETUP T19F ? FOR WRITE 

jGET WRITE SUBSYSTEM COMMAND PACKET 

iSEV THE PACKET ADDRESS TO EXECUTE 

,WAIT FOR SSR TO SET 

ittfiOTORCE ERROR IF FORCER- 1 
iBR IF CARRi SET (GOOD RETURN) 
iSAVF CONTENTS OF TSSR 



CfERDF 
84 7 

T1965SR 
PKTSSR 



CIO. PI 



1821: ERRDF ERRNO. T 194SSR .PKTSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 

. WORD 



INC 
CKi OOP 



F ATFl li 



i Sf r F M<\[. ERROR F LAG 
il OUP ON ERROR, IF FLAG 



OO * WfUTt FORMAT to, t*«t IHISVA***IRSIR * 



St T 
TRAP 



C IE RDF 

TpMS^R 
PKTSSH 



CtCLPl 



C'U: 



taft 



'i H^ewei 


tT^opbMe? 


4855 


05 7426 


005000 




48*4 


05/450 


004/5/ 


062162 


4855 


05/454 


01?7O4 


Ot.2500 


4fl*6 


057440 


010465 


000000 


465/ 


05/444 


004 757 


016556 


4858 


05 7450 






4859 


057464 


10540 7 




4840 


057466 


010001 




4841 


0574/0 






4842 


057470 








057470 


104455 






05 74/2 


001521 






05/4/4 


060652 






05/476 


012046 




4845 


05 7500 


00525/ 


002222 


4844 


05/504 








05/504 


104406 




484!> 








4846 


057506 


012/00 


000001 


4H47 


05/51? 


004/5/ 


062162 


4848 


05/516 


0X2/O4 


Ob2500 


484*> 


05 /52c? 


010465 


000000 


4H50 


05 752b 


004/5/ 


016556 


4851 


05 755? 






485? 


057546 


10540/ 




4855 


05/550 


010O01 




4854 


05/55? 






4855 


05755? 








05/55? 


104455 






05/554 


001522 






05/556 


060652 






05/560 


0U046 




4856 


05/56? 


00525/ 


002222 


4 85/ 


05 7566 








05/566 


tO4406 




4858 








4859 


05 75/0 


01?/00 


OOOOOl 


4860 


057574 


004/5/ 


062066 


48M 


C57600 


012704 


062500 


4H/ (£ ? 


05 '(04 


010465 


000000 


4^,5 


057610 


00475/ 


OJ.6556 


4B64 


057614 






4865 


05/650 


10540/ 




4 866 


05/65? 


010001 




486/ 


05/654 






4868 


05 7654 








05 76 54 


104*55 






05 76 56 


00152 5 






05/640 


060520 






05/64? 


012CMt 




4869 


05/644 


0052 5^ 


002222 


48/0 


05 7650 








05/650 


104406 




48/1 








4HV 


05 /65? 


004 7 57 


Ot>,V40 


48/5 


05 /656 


012/01 


<>6010? 


4&**A 


(titffeft! 


QUWi 


0625 W 



17; 14 



202$; 



250$ j 



282 $ ; 



?^0i 

t 



Cl.R 

JSR 

MOV 

MOV 

JSR 

F ORCERROR 

BCS 210$ 

MOV RO.Rl 

NEXT.ERRNO 

ERRDE ERRN0.T198SSR, PKTSSR 



RO 
PC,Tl9Wf*MT 

♦T19TK2.R4 

R4,TSDB(R5) 

PC.CHKTSSR 

202$ 



SEQ 197 



l SET IRESV4-->IRSTR-0 

(SETUP T9PK2 TOR WRITE TORMAT 

jGET WRITE SUBSYSTEM COMMAND PACKE T 

jSET THE PACKET AODRFSS TO FXECUTF 

iWAIT FOR SSR TO SET 

jflSDFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 





INC 




FATFLG 


210$: 


CKIOOP 




i 


Do a 


MRPE FORMAT to 




MOV 




#WF,I4RES,R0 




JSR 




PC.T19UFMT 




MOV 




4T19PK2.H4 




MOV 




R4,TS0B(R5) 




JSR 




PC.CHKTSSR 



,SET FATAL. ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



1 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 

TRAP 



222$ 



F ORCERROR 

BCS 250$ 

MOV R0.R1 

NEXT ERRNO 

ERRDF 4 ERRNO, T1985SR.PKTSSR 



♦at IRESV4"->IRSTR 

lIRESV4-->IRSTR-l 

jSETUP T9PK2 FOR WRITE FORM<U 

iGET WRITE SUBSYSTEM COMMAND RACKET 

iSET THE PACKET ADDRESS TO EXECUTE 

IWAIT FOR SSR TO SE I 

jfiflOFORCE ERROR IF FORMER- 1 
iBR IF CARRY SET f GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



C$ERDF 
849 

T i 98 SSR 
PKTSSR 



CICLPl 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



INC 


FATFLG 






CKLOOP 






Do a 


READ FIFO with 


tape 


d! r. 


hov 


#1.R0 






JSR 


PC.U9RFIF 






MOV 


• U9PK2.R4 






MOV 


R4,TSDB(R5) 






JSR 


PC, CHKTS r R 






F ORCERROR 2821 


\ 




BCS 


*>90$ 






MOV 


R0.R1 






NE*r . 


ERRNO 






ERRDF 


ERRNO, T196S* 


;r,pki 


SSR 



jSET FATAL ERROR FLAG 
i LOOP ON ERROR, IF r L AG 



SET 

TRAP 



Cx-r.RDF 
850 

T198SSR 
PKTSSR 



C$CLP1 



• on IN to ra,*©* data 
iSET READ BYTE CO\HT 
I SETUP T19PK2 FOR READ FIFO 
jGET VrfUTE SUBSYSTEM COMMANO PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

i©80F0RCE ERROR IF FORCER* 1 
jBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKi OOP 

If Date 
JSR 

MOV 

MOV 



FATFH, 



r«»d from F IF 
PC. T 195* TFxP 
«U9EXSTA,Ri 
*U9£FSrA t .HJ 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
,WORO 



C$ 
85 

Tl 



ERDF 

1 

9b SSR 

TSSR 



i SET FATAL ERROR F LAG 
ll OOP ON ERROR, U f\ AG 



NOW to 



SE T 

TRAP ClCl^i 

Data aant Than Print Error 
iSET WORDS / FXPD-RECv (NOT TKSUNG: 
iCf T EXPECTED READ STATUS 
iGET RECV RtAU STATUS 



1)11 



TSV5 HARDWARE TESTS MACRO Ml 113 
TfebT 8: SUBTEST 4 lOOPHACK READ STl 


48 75 057666 


015711 


O02512 


4876 057672 


016261 


000002 000' 


487 7 057700 


005000 




4878 05770? 


012701 


062552 


48/9 05 J/06 


012702 


060062 


4880 057/12 


012705 


000022 


4881 057716 


0047S7 


011500 


4882 05 7/22 






488 5 05/7 52 


105404 




4884 057 754 






4885 05 7 7 54 






05 7 7 54 


104456 




05 7 7 56 


001524 




05/740 


0616S0 




05 7 742 


015742 




4886 OS/744 






05/744 


104406 




488 7 






4888 






4889 05 7 746 






4890 ^5 7 756 


015705 


002516 


4891 057762 


02052 7 


005062 


4892 05 7 766 


105002 




4895 057 7 70 


00015/ 


057004 


4894 057774 






4895 






4896 057 7 74 






05 7174 






05 7 7 74 


104405 




4897 






4890 05 7 7 76 


005 75 7 


002222 


4899 060002 


00140^ 




49O0 060004 


004757 


017202 


4901 060010 






4902 






4905 060010 






0600 1 


1044 5/ 




060012 


002602 




4904 






4905 






4 906 






490 7 






4908 






4909 






4910 060014 


oooooo 




49U 






49 \ t > 






4S15 






4914 






4915 






4 U6 






491 / 






4918 






4919 060016 






4920 060016 


000001 




49/1 060o.'<> 


00000*' 




4922 060022 


000004 





RO 



8M§§ 



84 17:14 



MOV DATA.CR1) 
MOV 2(R2),2CR1) 
CLR RO 
MOV *T19BFR f Rl 
MOV 0T19EXP.R2 
MOV *18.,R5 
JSR PC.CKMSG2 
FORCERROR 502 1 . NOTSSR 
BCS 5101 
NEXT.ERRNO 
302$ i ERRHRD ERRNQ, T19RSTR.MSGSUB 



510$: CKtOOP 



FORCEXIT 555$ 

MOV TSTPTR.R3 

CMP R5.0TBLEND 

BHIS 555$ 

JMP 100$ 



555$: 



360$: 



ENDSUB 



T5T 


FATFLG 


BEQ 


560$ 


JSR 


PC.CKOROP 



EXIT 



TST 



iLOCAL STORAGE FOR THIS TEST 



T19PREV 



.WORD 



; LOOPBACK l,RIVE SIGNAl TABl.fc 
j (HIS TABLE IS USED BY T19CNVT 
j A DRIVE PATTERN FROM THE TEST 



SEQ 198 



I SET EXPD WORD 08 - DATA 

»SET EXPO WORD 09 - RECV fNOT TESTING) 

I HIGH R*CV ADDRESS FOR CKMSG2 

j LOW RECV ADDRESS FOR CKMSG2 

,EXPD ADDRESS 

I NUMBER OF BYTES TO COMPARE 

j EXPD EQUAL RECV? 

iaao 

I BR I r vfs 



TRAP 


C$ERHRD 


.WORD 


852 


.WORD 


U9RSTR 


.WORD 


MSGSUB 


SET 




TRAP 


C$CLP1 



jREPORT ERROR 



j LOOP ON ERROR, IF FLAG 



iStfO 

, RESTORE CURRENT TSTBLK POINTER 

jEND OF TSTBLK? 

iBR IF YES 

l 00 ANOTHER TSTBl K PATTERN 



(//////////// END SUBTEST ////////// 

L. 10072: 

TRAP C$ESUB 

jANr FATAL ERRORS ? 

, BRANCH IF NOT 

jTRr TO DROP THE UNIT 



j////////// fcXlT rtST ///'.•/'/// 

TRAP C$EXIT 

.WORD L 10066 



iORIVE SIGNAL. 1-0 TRANSITION FLAG 



TO SETUP 

DATA INPUT 



PATTERN, 



i WRITE 
1 WRITE 

U9BFCTL 



CONTROL SIGNAIS ARE OF FORM WC.XXX 
FORMAT SIGNAIS ARE OF FORM WF.XXXX 



WC. IGO 
WC. IFtN 

WC. IRWU 



j WRITE CONTROL 
i IGO- -»IFPT 
j IMN-->IFB1 

j IHWU-^IRWD 



DRIVE SIGNALS 
PATA<0* 
DATA* 1- 
DATAw^ 



lb 



TSVS HARDWARE TESTS MACRO MU15 06 -FEB -84 17:14 
TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 



49J3 

49 ?S 
49.-?6 

4«v; 

49?fl 
49^9 

4930 

4931 

493J 

4933 

4954 

493b 

4936 

49 3 r 

4936 

4939 

494C 

494i 

4W2 

494 3 

4944 

494*3 

4946 

4947 

4948 

4949 

49b0 

49S1 

495.? 

4 9b 3 

49S4 

49V> 

4956 

49S; 

*V>!>« 

49S9 

4960 

4961 

496.' 

4**i 3 

4964 

496b 

4966 

496 1 

4968 

4969 

49/0 
4971 
49.V 
49/3 
49 74 
49 ,' r . 
49/6 
49/ / 
4'*, '8 
49/9 



0600c!4 
0t>00c?6 
060030 
06003? 
060034 
060036 
060040 
060042 
060044 
060046 
0600SO 
0600b.' 
0600S4 

060056 

060056 
06005 7 
060060 
060061 

06006? 

060062 
060064 
060066 
0600/0 
0600/2 
0600/4 
0600/6 
060100 
06010? 
060202 



06020c 4 
06024 3 
060300 
060344 
060411 
060454 
060b20 
060563 
060632 
060/00 
060 762 
061056 
061144 
061220 
061503 
0615/1 
061460 
06 1 54 % 
061650 



000010 
002000 
OOOO40 
000100 
000200 
004000 
O 10000 
020000 
040000 
100000 
000000 
000000 
000000 



37/ 
03/ 
360 
OOO 



000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



124 

127 
12/ 
127 
12/ 
12/ 
12/ 
12/ 
12/ 
106 
122 
124 
122 
106 
124 
10* 
122 
114 
114 



162 
122 
122 
122 
122 
122 
122 
122 
122 
111 
145 
141 
145 
111 
141 
15/ 

14 5 

15 7 
157 



141 
111 
111 
111 
111 
111 
111 
111 
HI 
106 
141 
160 
141 
106 
160 
156 
141 
157 
lb 7 



T19MSK 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



WC.iHtW 

WK,1ERASE*256, 

WC.11TAD 

WC.IOTAD 

WC.IEAD 

UF.IEDIT*256. 

wr.lWf"H*256. 

WF.IREV*256. 

Wf .IWRT*256. 

WF.IHISP*256. 

. WORD 

.WORD 

. WORD 



tC<000> 
tC<340> 
tC<017> 




T19EXP? 

. WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

T19EXSTA: .BLKB 64. 
T19EXEN0; 

i LOCAL TEXT MESSAGES FDR TEST 
J 

TST19ID: 

T19SSR: 

T192SSR: 

T193SSR: 

T194SSR: 

T195SSR; 

T196SSR: 

T197SSR: 

T198SSR: 

T191CMP: 

T192CMP; 

T193CHP; 

T195CHP; 

T196CMP: 

T197CMP; 

T198CMP: 

7 199CMP' 

T19WSTR: 

Tl9RSTRi 



5EQ 199 



IREW-»>IDBY DATA<3> 
IFAD-->ILOP DATA<4> 
ITAD1-->I0NL DATA<5> 
ITADO-->IRDY DATA<6> 
IERASE-«>ISPEED DATA<7> 
IEDIT-»»IHER DATA<8> 
IWFM-»>IFMK DATA<9> 
IREV»->ICER DATA<10> 
IURT--JIIDENT DATA<11> 
IHISP-->IE0T DATA<12> 
IRESV2 (UNUSED)DATA<13> 
IRESV1 (UNUSED)DATA<14> 
PARERR (UNTESTED)DA»A<15> 



STATUS BYTES 



MASK OF UNTESTED BITS IN READ 

UNTESTED BITS ARE SET TO 1 

BYTE MASK 

BYTE 1 MASK ( PARERR t IRESV2 , IRESV 1 ) 

BYTE 2 (TIMER A, TIMER B,UNDFFINED< 1 :0> ) 

MAKE IT EVEN 

BEGIN EXPECTED DATA BUFFER 
MESSAGE TYPE 
DATA FIELD LENGTH 
RBPCR 
XSTO 
XST1 
XST2 
XST3 

XST4 (ALWAYS PRESENT 

EXPECTED READ STATUS 

I END EXPECTED 



FOR WRITE SUB. ) 
ANO WRITE FIFO DATA 
DATA BUFFER 



.a:ci/ 

.ASCU 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 
.ASCI/ 

■ EVEN 



ASCI/ 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 

fifo 
Read 

Tap* 
Read 
FIFO 

Tap* 

Control 

R«ad/Wr 



' Transport Bus 

CHARACTERISTICS 

SUBSYSTEM (Writ 

SUBSYSTEH 

SUBSYSTEM 

SUBSYSTEM 

SUBSYSTEM 

SUBSYSTEM 

SUBSYSTEM 
Statu* in 
FIFO Data 



Interface Loopback 
Failed' 
Mi ec ) Fai led' 
(Read Statua) Failed' 
(Write Upr) Failed' 
(Writ* FIFO) Failed 1 
(Read FIFO) Failed' 
(Write Control) Failed' 
(Write Format) Failed' 
WORD *9 Incorrect after 
net equal to Write FIFO 



In! t i ai I •*' 
. Data is in WORD 
FT TAPE"' 



06' 



Status 2 ( ir WORD *B ) Incorrect after RE 
FIFO Data not equal to Write FIFO Data 1 
Statue (in WORD 09) Incorrect after READ FIFO' 
Statua 2 (in WORD 98 ) Incorrect after RESET TAPE 
Signal Loopback Oata Error, Data Is in WORD 48' 
te LoopbacW Data Error, Data is in WORD 08' 



t uopback Data Error when strobed by Write strobe, Data 
Loopback Data Error when strobed by Read Strobe, Data 



s 



>n 



n WORD fftt 
WORD OB' 



lb 



T5V5 
TEST 



HARDWARE TESTS MACRO Ml 115 06 -FEB -84 17 
8: SUBTEST 4 L.UOPBACK READ STROBE TEST 



14 



SEQ 200 



4^80 
4*581 
498? 
4983 
4984 

4985 

4986 

496 7 

4988 

4989 

4990 

4 99 1 

499 J 

4993 

4994 

499^ 

4996 

499 ? 

4998 

499 1 * 

5000 

5001 

500c 1 

5005 

5004 

5005 

50O6 

5007 

5008 

5009 

5010 

5011 

501 1* 

5015 

5014 

5015 

5016 

50 1 / 

50 18 

5019 

50. tO 

5021 

50?? 

50? 5 

5024 

50?5 

5026 

50? .' 

50? 8 

50?9 

50 ^0 

50 31 

50 5? 

50 5 5 

50 54 

5055 

5036 



061/54 
061/54 
061760 
061764 
0617/0 
0617/? 
0617/4 
061/76 



06?000 
06?000 
06?004 
06?010 
06?014 
062016 



C62020 
06?0?0 
06?0?4 
06?030 
0620^4 
062040 



06204? 
06?04? 
06?046 
06205? 
06?056 
06? 06? 
062064 



062066 
062066 



012701 
012 70? 
105021 
005302 
0033/5 
00020/ 



00473/ 
012700 
112/20 
105010 
000207 



004737 
012/00 
112/20 
112/10 
000207 



004/5/ 
012/01 
112/21 
05? 700 
110011 
000207 



06235? 
OOOUO 



061/54 
062510 
000005 



06175'< 
0625)0 
0000 10 
000030 



061754 
062510 

000011 
000020 



i * 

j CLEAR MESSAGE 


BUFFER 


T19CLRBUF: 




SAVREG 




MOV 


0T19BFR.R1 


MOV 


♦ T19BEND-U9BFR.R2 


10$ j CLRB 


(Rl)# 


DEC 


R2 


BGT 


10$ 


RTS 


PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

{GET MESSAGE BUFFER ADDRESS 

{SIZE Of MESSAGE BUFFER IN BYTES 

iCLKAR A BYTE 

j DONE? 

iBR IF NO 

iRETURN 



; SETUP T19PK2 PACKET FOR READ STATUS 
T19SRD1 



JSR 


PC.T19CLRBUF 


MOV 


0T19DT2.R0 


MOVB 


OPW.RDSTATUS.CRO)* 


CLRB 


(HO) 


RTS 


PC 



j CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM DATA BUFFER 

{STORE READ STATUS COMMAND IN BSELO 

{CLEAR BSEL1 

{RETURN 



J • 



SETUP T19PK2 PACKET FOR WRITE MISC Reset Tope Status F -FLOPS 



T19RSF1F: 

JSR 

MOV 

MOVB 

MOVB 

RTS 



{ 



PC.T19CLRBUF {CLEAR MESSAGE BUFFER 

0T190T2.R0 {WRITE SUBSYSTEM DATA BUFFER 

*PW,WMISC,(R0)> {STORE UR1TE MISCELLANEOUS IN BSELO 

♦MS,RSFIF»MS,RSTAP,(RO) jSTORE BSEL1 CLEAR FIFO CODES 

PC {RETURN 



SETUP T19PK2 PACKET FOR WRITE NPR 
\ INPUT? 



J 



RO CONTAINS BSEL1 NPR DATA 

SE1S NP.WRP SINCE IF C IT WRITES WRONG PARITY. 



T19SNPR: 




JSR 


PC.T19CIRBUF 


MOV 


0T190T2.R1 


MOVB 


*PW.WNPR.(R1)» 


BIS 


ONP.WRP.RO 


MOVB 


RO,(Rl ) 


RTS 


PC 



{CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
{STORE WRITE NPR IN BSELO 
{DON'T WRITE WRONG PARITY 
iSTORE NPR DATA IN BSEL1 
iRETURN 



SETUP T19PK2 PACKET FOR READ FIFO 
INPUT: 



RO CONTAINS SEl ? HYTF COUNT 



004/37 061754 



U9RF1F: 



JSR 



PC.T19CLRBU 



CI EAR MESSAGE BUFFER 



Gib 



TSV5 - HARDWARE TESTS MACRO MU13 06-FEB 64 17? 14 
T£$T 8: SUBTEST 4 LOOPBACK READ STROBE TEST 



503 7 
5038 
039 



5040 
504 1 
504? 
504 3 
5044 
504 S 
5046 

504 7 
5048 
5049 
5050 
5051 
505? 
5053 
5054 
50SS 
5056 

505 7 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
50*5 
5066 

506 7 
5068 
5069 
50 70 
50 71 
50 TV 
50 75 
50 74 
50/5 
50 76 
50 7 7 
50 78 
50 79 
5080 
5081 
508? 
5083 
5084 
5085 
5086 
508 7 
5088 
508'* 
5090 
5091 
509 t - 
5095 



06207? 
062076 
062102 
062104 



062106 
062106 
062112 
062116 
06212? 
062126 
062150 
062132 
062134 
062136 
062140 



062142 
062142 
062146 
062152 
Or,? 156 
062160 



062162 
062162 
062166 
062172 
0621 76 
062200 



062202 
062202 
062206 
06221? 
062216 



012701 062510 
112 721 000003 
110021 
000207 



004 75 7 
01270? 
112722 
110022 
005022 
112122 
005300 
0055 75 
000207 



004 75 7 
012701 
112721 
110021 
000207 



004 7 3 7 
012701 
112721 
110021 
000207 



012 700 
112720 
112710 
000207 



061754 
062510 
000004 



061754 
062510 
000006 



061754 
062510 
000007 



062510 

0000 10 
000200 



MOV 
MOVB 
MOVB 
RTS 



0T19DT2,R1 

OPW.RFIFO.CRIV 

RO.CRl)* 

PC 



SEQ 201 



jWRITE SUBSYSTEM DATA BUFFER 
, STORE READ FIFO IN BSELO 
, STORE BYTE COUNT IN BSEL1 
j RETURN 



j SO TUP T19PK2 PACKET FOR WRITE FIFO 



i PUT 



U9WFIF 



RO CONTAINS BYTE COUNT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



10* 



j ♦ 



l SETUP 



SAVREG 




JSR 


PC.T19CLRBUF 


MOV 


0T19DT2.R2 


MOVB 


*PW.UFIFQ,(R2)* 


MOVB 


R0.CR2)* 


CLR 


(R2)» 


MOVB 


(!U)* 9 CR2)« 


DEC 


RO 


BGT 


10$ 


RTS 


PC 


T19PK? 


FOR WRITE CONTROL 



jSAVE R1-R5 UNTIL NEXT RETURN 

I CLEAR MESSAGE BUFFER 

SUBSYSTEM DATA BUFFER 
WRITE FIFO IN BSELO 
BYTF COUNT IN BSEL1 
SEL2 (LOUSED) 
DATA PATTERN BYTE 
ALL BYTES? 



sWRITE 
j STORE 
{STORE 

i CLEAR 
; STORE 

i DONE 



j BR IF NO 
j RETURN 



INPUT j 



J 



RO CONTAINS DRIVING DATA PATTERN 



T19WCTL: 



JSR PC.T19CLRBUF 

MOV 0T190T2.R1 

MOVB *PU.UCTL,CR1)* 

MOVB R0,(R1)» 

RTS PC 



l CLEAR MESSAGE BUFFER 
;WRITE SUBSYSTEM DATA BUFFER 
» STORE WRITE CONTROL IN BSELO 
I STORE DATA WORD IN BSEL1 

{RETURN 



SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER 



INPUT; 



RO CONTAINS DRIVING DATA PATTERN 



T19WFMT; 



JSR PC.T19CIRBUF 

MOV *T190T?,R1 

MOVB *PW.WFM[ ,(RO* 

MOVB RO.CRD* 

RTS PC 



, CLEAR K SSAGE BUFFER 
}WR T TE SUBSYSTEM DATA BUFFER 
j STORE WRITE FORMAT IN BSELO 
tSTTRE OATA UORD IN BSEl.l 

{RETURN 



j SETUP T19PK? PACKET FOR WRITE MISC, INVERT EXTENDED FEATURES SWITCH 



Tl9St:XTs 



MOV 0T19DT2.R0 

MOVB *PW.WMISC,(RO)» 

MOV'i OMS.EXT.IRO) 

RTS PC 



lURITE SUBSYSTEM DATA BUFFER 
jSTORE WRITE MISCELLANEOUS IN BSH 
tSlORf INVERT EXTENDED FEATURES IN BSfcLl 
I RE TURN 



i • 



CLEAR EXPECTED DATA MESSAGE BUFFER 



i 



Hlb 



TSV5 • HARDWARt: USTS MACRO M1113 06-FEB 84 17:14 
T£ST 8: SUBTEST 4 LOOPBACK READ STR08F. TFS'i" 

U9CLEXP: 

MOV 
MOV 
10$: CLRB 

DEC 
BGT 

RTS 



5094 


062220 






5095 


062220 


012701 


060062 


509b 


062224 


012700 


000120 


5097 


062250 


105021 




5098 


062252 


005500 




5099 


062254 


0055 75 




5100 


062236 


000207 




5101 








5102 








510? 








5104 








5105 


062240 






5106 


062240 


01/ 702 


060062 


5107 


062244 


012705 


062552 


5108 


062250 


012700 


000010 


5109 


062254 


012522 




5110 


062256 


005500 




5111 


062260 


005575 




5U2 


062262 


000207 




5115 








S114 








5115 








5116 








5117 








5118 








5119 








5120 








sun 








5122 








5125 








5124 








51^S 








M26 








5127 








51.78 








5129 








5150 


062264 






5151 


062264 






5152 


0622 70 


012701 


060016 


5155 


0622 74 


005002 




5154 


0622 76 


012703 


000020 


5 1 55 


062502 


006000 




5156 


062504 


105001 




515 7 


062506 


051102 




5158 


062510 


005 721 




5159 


062512 


005505 




514 


062514 


003372 




5141 


062516 


010200 




514? 


062320 


000207 




5 1 4 5 








5144 








5145 








514/ 




062350 




5149 








M5C 








MM 








M52 


062530 







0T19EXP.R1 

0T19EXEND-Tl9EXP.R0 

(Rl)» 

RO 

10$ 
PC 



S£Q 202 



jGET EXPO ADDRESS 
{GET EXPD SIZE 
I CLEAR A BYTE 

i DONE? 
jBR IF NO 
l RETURN 



j Set WORDS 0-7 of expd message BUFFER « to r«cv since not testing 



U9SETEXP: 




MOV 


*U9fcXP,R2 


MOV 


*T19flFR,R3 


MOV 


*8. ,R0 


5$: MOV 


(R3)»,(R2)* 


DEC 


RO 


BGT 


5$ 


RTS 


PC 



{GET 
(GET 



EXPD 
READ 



STATUS RECV BUFFER 



i SET WORDS 7 EXP-RFCV 

{SET EXPD-RECV 

{DONE WORDS 0-7 WORDS? 

iBR IF NO 

{RETURN 



CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 
INPUTS; 

RO TEST PATTERN 
IMPLICIT INPUTS! 

T196FCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 



OUTPUTS: 
RO 



LOW BYTE CONTAINS WRITE CONTROL DATA 
HIGH BYTE CONTAINS WRITE FORMAT DATA 



T19CNVT 


• 








SAVREG 




jSAVF. R1-R5 UNTIL NEXT RETURN 




MOV 


*T19BFCTL,R1 


{CONVERSION TABLE ADDRESS 




CI R 


R2 


l INI T RESULT Of CONVERSION 




MOV 


*16, ,R3 


{BIT COUNT 


10$: 


ROR 


RO 


j IS THIS BIT EQUAL TO 1? 




BCC 


201 


1 BR IF NO 




BIS 


(R1),R2 


{SET CONVERTED BIT 


20$: 


TST 


( R 1 ) ♦ 


{POINT TO NEXT BIT IN CONVERSION 




DEC 


R5 


{DONE? 




BGT 


10$ 


{BR IF NO 




MOV 


R2.R0 


jCOPi RESULT 




RTS 


PC 


{RETURN 



TABLE 



. '< . • 10-6177770 
'{WRITE CHARACTERISTICS COMMAND PACKET 
T19PACKET: 



, COMMAND PACKET FUR TEST 



116 



TSV5 HARDUARE 


TESTS 
T 4 l OOF 


TEST 8; SU8TF5 


5153 062330 


100004 


5154 06233? 


062340 


5155 062334 


OOOOOO 


5156 062336 


000012 


515/ 




5158 062340 




5159 062340 


06235? 


5160 062342 


OOOOOO 


5161 062344 


000024 


5162 062346 


OOOOOO 


5163 062350 


000007 


5164 




5165 




5166 




5167 




5168 062352 




5169 062352 


OOOOOO 


51/0 062354 


OOOOOO 


5171 062356 


OOOOOO 


51/2 062360 


OOOOOO 


51/3 062362 


OOOOOO 


51/4 062364 


OOOOOO 


51/5 062366 


OOOOOO 


51/6 0623/0 


OOOOOO 


51/7 0623/2 




51/8 0624 72 




51/9 




5180 




5181 




5]M 


062500 


5l'V. 062500 




51 6 062500 


100006 


51 S7 062502 


062510 


5183 062504 


OOOOOO 


5189 062506 


000012 


5190 




5191 062510 




5192 062510 


ooo 


5193 062511 


000 


5194 062512 


OOOOOO 


5195 062514 




5196 




519/ 




5198 0fc2(.14 




062614 




062614 


104401 


5199 




5200 




5201 




5202 




520 5 




5204 




520*. 




5206 




520/ 




5208 




520* 





MACRO Mm} 06-FI 
OPBACK READ STROBE Tl 



84 17:14 



.WORD 
.WORD 
.WORD 
.WORD 



T19DATA: 



.WORD 
.WORD 
.WORD 
.WORD 
. WORD 



100004 

T19DATA 



10. 



T196FR 


20. 


7 



SEQ 203 



jWRITE CHARACTERISTICS 
I ADDRESS OF 



CHARACTERISTICS 



COMMAND, WITH 
BLOCK 



ACK 



i MESSAGE BUFFER FOR ALL TEST 8 COMMANDS 



T19BFR; 



.WORD 
.WORD 
.WORD 
.WOttD 
.WORD 
.WORD 
.WORD 
.WORD 














U96FSTA: .BLK3 64. 

T19BEN0: 

l 

iWRITE SUBSY5TEM READ STATUS COMMAND PACKET 

J 



jMINIMUM MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE DUFFER 

jESS.EN6.EAI.ERI 

I EXTENDED FEATURES UNIT NO. 



iBEGIN MESSAGE BUFFER 

{MESSAGE TYPE 

jDATA FIELD LENGTH 

jRBPCR 

jXSTO 

jXSTl 

}XST2 

jXST3 

;XST4 

iREAD 

{END 



(At.UAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS ANO WRITF FIFO BUFFER 
OF MESSAGE BUFFER 



,-<. ♦I0>£l77770 



T19PK2: 








.WORD 


P.WRlSUBiP.ACK 




.WORD 


Ti9ora 




.WORD 







.WORD 


10. 


T190T2: 








.BYTE 







.BYTE 







.WORD 







,BLKB 


64, 



{WRITE SUBSYSTEM WITH ACK 
iLOW ADDRESS OF DATA BLOCK 
{HIGH ADDRESS OF DATA BLOCK 
{MINIMUM MESSAGE PACKET SIZE 



{DATA BLOCK 
jBSELO 
{BSEL1 
{SEl? 
{WRITE FIFO 



DATA OUTPUT BUFFER 



ENDTST 



L 10066: 



.SBTTl TFST 9j READ/WRITE DATA PARITY TEST 



TRAP 



C$ETS 



CT 



TEST DESCRIPTION: 



This teat verifiea that tht Write Data Parity generator 
ard the Read Data Parity checker operate properly. The 
Transport Bua a! goal iooptoack mode »» enabled and a 
Set WrorvQ parity function la executed. Then various 
Writt Subayatem Memory function* are performed to 
write data to and frow the F IFQ in loopback mode. 
The program then checks to insure a Read Data parity 



Jib 



TSVS 
TEST 



HARDWARE TFSTS MACRO MX113 06-FEB-84 17; 14 
4: READ/WRITE DATA PARITY TttiT 



SEQ 204 



S<HO 
5? 15 

roi4 

spi ; 

Sc'l*» 

5200 
!>221 
SiW 

52.? 3 

5;v4 

5230 
b?.5l 

52 3 3 
5254 

5235 

52 .V» 
5237 
5238 
5234 
5240 
5241 
524,> 

524 3 
5244 
524S 
5246 
524/ 
5248 
524 ( ) 
5250 
5251 
5252 
5253 
5254 
5255 
5256 

525 I 
5258 
5254 
5260 

5265 

52bb 
526/ 
5268 
5^69 



I 



062616 
062616 
062616 
062622 
062626 
062634 



012/00 
004/3/ 
012737 



065202 
016510 
000012 



002216 



error occurred. 

A Reset FIFO is dons and the Read Dot* parity 

error bit is again tested to insure it cleared. 

Finally a Clear wrong parity function is done 

and it is verified the data word can pass in loopback 

rrvode without setting Read Data parity error, 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Write to TSSR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to check For Extended Features Switch 

If Extended Features Hardware Switch Clear th*n: 

Do Write Subsystem Write Miscellaneous to Set Extended Feature*.. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

(* Verify Write Wrong Parity Sets Parity Error *) 

Do a WRITE NPR to set loopback and tape direction OUT 



Do 
Do 
Do 



artd SET Write Urong Parity. 

IRESV4 



WRITE FORMAT to set IRESV4- ■> IRSTR - 1 (sets read strobe high) 
WRITE FIFO with byte count equal to 1 and Tape direction OUT 
READ FIFO with tape direction OUT to load tape out w- Ite latch 
when wrong parity (IWP) is set) 
FORMAT to set IRESV4 - - >IRSTR - (sets 
PAR IN H [Parity Error]) 

IRESV4-->IRSTR • 1 (sets read strobe high) 
STATUS 

Then Print Error 



( th i s is 
Do a WRITE 

(Read Strobe sets 
Do a URITE FORMAT to set 
Do a Write Subsystem READ 
If Read Data parity error NOT 
Do a Write Misc to RESET FIFO 
Do a Write Subsystem READ STATUS 
If Read Data parity error NOT-0 



read strobe low) 



1 



Then Print Error 



(* 

Oo 
Do 

Do 
Do 
Do 

Do 
Do 
If 



Veri 



fv I 
ITE 



igh) 



Data can b« transferred without a Parity Error O 
FORMAT to set IRESV4 - - >IRSTR ■- 1 (sets read strob* h 
a WRITE NPR to set loopback and tape direction OUT 

and CLEAR Write Wrong Parity, 
a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
a READ FIFO with tape direction OUT to load tape out write latch 
a WRITE FORMAT to set IRESV4 ••> IRSTR « O (sets read strobe low) 

(Read Strobe should NOT set PAR IN H [Parity 
a WRITE fORMAT to set IRESV4 -•> IRSTR • 1 (sets 
a Write Subsystem READ STATUS 
Read Data parity error N0T"0 Then Print Error 



Error] here) 
read strobe high) 



END 



I - - 



T2OL00P: 



BGNTST 

MOV 
JSR 
MOV 



0TST20rD.R0 
PC. rSTSETuP 
010, , LOOPCNT 



T9: : 
jASCII MESSAUF TO IDENTIFY 
i DO INITIAL TfST SETUP 
{PERFORM 10 ITERATIONS 



TEST 



K16 



TSV5 - HARDWARE TESTS MACRU M1113 Ob-FEB-64 17:14 
TEST 9 : READ/WRITE DATA PARITY TEST 

BGNSUB 



SEQ 205 



5270 062634 






062634 






062634 


104402 




52/1 






5273 062636 






5? 7? 062636 


004737 


015774 


52/4 062642 


103405 




52 75 062644 


010001 




52/6 062646 






062646 


104455 




062650 


001604 




062652 


003652 




062654 


012034 




52/7 






52/8 062656 


005037 


002222 


5279 062662 


012704 


066400 


5280 062666 


004737 


010662 


5281 062672 






5282 062706 


103407 




5283 062710 


010001 




5284 062712 






5285 062712 






062712 


104455 




062714 


001605 




062716 


065231 




062720 


012046 




5286 062722 


005237 


002222 


5287 062/26 






062726 


104406 




5288 






5289 






5290 062730 


012701 


066422 


5291 062734 


032761 


000200 000012 


5292 062 742 


001026 




5293 062744 


004737 


066316 


5294 062/50 


012704 


066550 


52^5 062754 


010465 


000000 


5296 062760 


004737 


016336 


5297 062764 






5298 063000 


103407 




5299 063002 


010OO1 




5300 063004 






5301 063004 






063004 


104455 




063006 


001606 




063010 


065266 




063012 


012046 




5302 063014 


005237 


002222 


5303 063020 






063020 


104406 




5304 






5305 063022 


012 704 


066400 


5306 063026 


004/37 


010662 


530/ 063032 






5308 063046 


103407 




5309 0to3050 


010001 




5510 063052 







5$; 



10$: 



12$: 



15$: 



?eti 



30$; 



j //////////// BEGIN SUBTEST ////////// 

T9.1: 

TRAP C*BSU8 
Write to TSSR register to 90ft initialize the controller 



JSR PC.SOHNIT 

BCS 10$ 

MOV R0,R1 

ERRDF ERRNO , S.FIERR , Sf IMSG 



iWRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
iSAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV 0T2OPACKET,R4 

JSR PCWRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T20SSR, PKTSSR 



.WORD 
.WORD 
.WORD 
Swi tch 



C$EROF 

900 

SFIERR 

SFIMSG 



to check for Extended Features 
{CLEAR FATAL ERROR FLAG 
jGET THE ADDRESS OF COMMAND PACKET 
{DO WRITE CHARACTERISTICS COMMAND 

{83DF0RCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFI.G 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.VJORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 
TRAP 



If Extended Features Hardware Switch Clear then 
Do Write Subsystem Write Miscellaneous to Set 



CIERDF 
901 

T20SSR 
PKTSSR 



C$CLP1 



MOV 0T20BFR.R1 

BIT *X2.EXTF,XST2(Rl) 

BNE 30$ 

JSR PC.T20SEXT 

MOV 0T20PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 22$ 

BCS 30$ 

MOV R0.R1 

NEXT.ERRNU 

ERRDF ERRNO, T202SSP, PKTSSR 



Eh tended 
ADDRESS 

SWITCH SET? 



Features. 
{MESSAGE BUFFER 
{EXTENDED FEATURES 
iBR IF YES 

{SETUP PACKET FOR WRITE MISC INVERT 
jGET WRITE SU6SYS T EM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{SQOFORCE ERROR IF FORCER-1 
;BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
. V'ORD 
.WORD 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



SET 
TRAP 



Do WRITE CHARACTERISTICS 
MOV $T20PACKET,R4 
JSR PC.WRTCHR 
FORCERROR 42* 
BCS 50$ 
MOV R0,R1 
NEXT. ERRNO 



C$ERD^' 
902 

T202SSR 
PKTSSR 



C$CLP1 



to select reserved unit 7 

{GET THE ADDRESS OF COMMAND PACKET 
iDO WRITE CHARACTERISTICS COMMAND 

{SSOFORCE ERROR IF FORCER *1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



Lib 



TSV5 • HARDWARE 


tests 


MACRO Mil 13 Oi 


TEST 9: READ/WRITE DATA PARITY TEST 


5311 0*3052 






06305i? 


104455 




063054 


001607 




0630 r >6 


065231 




063060 


012046 




5312 063062 


005237 


002222 


5313 063066 






063066 


104406 




5314 






5315 






5316 






531/ 063070 


012703 


002752 


531H 063074 


012337 


002312 


5319 063100 


042737 


177400 002312 


5320 063106 


010337 


002316 


5321 






5322 






5323 063112 


012700 


000100 


5324 063116 


052700 


000040 


5325 063122 


042700 


000020 


5326 063126 


004737 


066166 


532.* 063132 


012704 


066550 


5328 063136 


010465 


000000 


5329 063142 


004737 


016336 


5330 063146 






5331 063162 


103407 




5332 063164 


010001 




5333 063166 






5334 063166 






063166 


104455 




0631/0 


ooieio 




063172 


065377 




063174 


01<_046 




5335 063176 


005237 


002222 


5336 063202 






063202 


104406 




5337 






5338 063204 


012700 


000001 


5339 063210 


004737 


066262 


5340 063214 


0127C4 


066550 


5341 063220 


010465 


000000 


5342 063224 


004 737 


016336 


5343 063230 






5344 063244 


10340/ 




5345 063246 


010001 




5346 063250 






5347 063250 






063250 


104455 




063252 


001611 




065254 


065551 




063256 


012046 




5348 063260 


005237 


002222 


5349 063264 






063264 


104406 




5350 






5351 063266 


012/00 


000001 


5352 063272 


012701 


0U2312 



06-FEB -64 17:14 



42$: 



ERRU.' 



ERRNO, 120SSR, PKTSSR 



50$ j 



INC FATFLG 
CKLOOP 



SEQ 206 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



iSET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



TRAP 



CiERDF 
903 

T20SSR 
PKTSSR 



C$CLP1 



j REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

MOV 0TSTBLK.R3 {GET FIRST PATTERN ADDRESS 

100$: MOV (R3)»,DATA {GET A TEST PATTERN 

BIC OtC<377>,DATA {DATA IS BYTE 

MOV R3.TSTPTR {SETUP CURRENT TSTBLK POINTER 

j Do a WRITE NPR to set loopback and tape direction OUT and 
i and SET Write Wrong Parity. 

jSET TAPE DIRECTION OUT 

jSET I OOPBACK 

iSET WRITF WRONG PARITY (INVERTED) 

I SETUP T20PK2 FOR WRITE NPR 

{GET WRITE SUBSYSTEM COMMAND PACKET 

iSET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

jSQDFORCE ERROR IF FORCER-1 
{ BR IF CARRY JET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



102$ 



103$ 



112$ 



120$ 



MOV 


oNP.OUT.RO 


BIS 


WP.LOOP.RO 


BIC 


PUP WRP.RO 


JSR 


PC.T20WNPR 


MOV 


4T20PK2.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


FORCERROR 102$ 


BCS 


105$ 


MOV 


R0.R1 


NEXT. 


ERRNO 


ER'ROF 


ERRNO, T204SSR, PKTSSR 



INC 
CKLOOP 



FATFLG 



Do a WRITE FORMAT to set 

MOV *WF. I4RES.R0 

JSR PC.T20WFMT 

MOV 0T20PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 112$ 

BCS 120$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T206SSR, PKTSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
. WORD 904 
.WORD T204SSR 
.WORD PKTSSR 

iSET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP CJCI.P1 
IRESV4-->IRSTR - 1 (sets read strobe high) 

|IRESV4-->TRSTR - 1 

j SETUP T20PK2 FOR WRITE FORMAT 

jGET WRITE SUBSYSTEM COMMAND PACKET 

{SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

jSaOFORCE ERROR IF FORCER -1 

;BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
. WORD 905 
.WORD T2085SR 
.WORD PKTSSR 
INC FATFLG jSET FATAL ERROR FLAG 

CKLOOP {LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
MOV 01, RO {WRITE 1 BYTE 

MOV 0DATA.R1 {FIFO WRITE DATA ADDRESS 



® 



- HARDWARE TESTS 
9; READ/WRITE DATA 



"mwki 



06-FEB-84 17:14 



M16 



5EQ 207 



5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 



5362 
5363 

5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 



53/6 
5377 

5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
538 7 
5388 
5389 



5390 
5391 

5392 

5393 
5394 



063276 
063302 
063306 
063312 
063316 
063332 
063334 
063336 
063336 
063336 
063340 
063342 
063344 
063346 



063354 
063360 
063364 
063370 
063374 
063400 
063414 
063416 
063420 
063420 
063420 
063422 
063424 
063426 
0634 30 
063434 
063434 



063436 
063440 
063444 
063450 
063454 
063460 
063474 
063476 
063500 
063500 
063500 
063502 
063504 
063506 
063510 
063514 
063514 

063516 
063522 



004737 
012704 
010465 
004 737 

103407 
010001 



104455 
001612 
065442 
012046 
005237 



063352 104406 



012700 
00473'/ 
012704 
010465 
004737 

103407 
010001 



104455 
001613 
065506 
012046 
005237 

104406 



005000 
004 73/ 
012 704 
010465 
004737 

103407 
010001 



104455 
001614 
065551 
012046 
005237 

104406 

012 700 
004737 



066226 
066550 
000000 
016336 



J5R PC.T20WFIF 
MOV OT20PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 152$ 
BCS 1601 
MOV R0,R1 
NEXT. ERRNO 
152$; ERRDF ERRNO, T205SSR, PKTSSR 



002222 



000001 
066206 
066550 
000000 
016336 



160$: 



002232 



180$: 



066262 
066550 
000000 
016336 



002222 



000001 

066262 



200$ ; 



; SETUP T20PK2 FOR WRITE FIFO 
{GET WRITE SUBSYSTEM COMMAND PACKET 
; SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
906 

T205SSR 
PKTSSR 



{SET FATAL ERROR FLAG 
;L00P ON ERROR, IF FLAG 



Do a READ FIFO with tape direction 
(thi9 is when wrong parity (IWP) 



OUT to load 

is set) 



tape out 



SET 

TRAP 

write 



C$CLP1 
latch 



MOV $1,R0 

JSR PC.T20RFIF 

MOV 0T2OPK2.R4 

MOV R4,TS0B(R5) 

JSR PC.CHKTSSR 



FORCERROR 
BCS 180$ 
MOV R0.R1 
NEXT .ERRNO 



172$ 



172$: ERRDr ERRNO, T206SSR, PKTSSR 



{SET READ BYTE COUNT 

{SETUP T20PK2 FOR READ FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

{SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



Do a WRITE FORMAT to sc! 
(Rc»d Strobe uetti 

\ C.T20WrMT 
« 20PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 



FAILED TO SET 






TRAP 


C$ERDF 




.WORD 


907 




.WORD 


T206SSR 




.WORD 


PKTSSR 


LAG 






FLAG 


SET 






TRAP 


C$CLP1 


read 


strobe 


low) 



CLR 
JSR 
MOV 
MOV 
JSR 



FORCERROR 
BCS 200$ 
MOV R0.R1 
NEXT.ERRNO 



192$ 



;SfT FATAL £RR0R F 
;L0OP ON ERROR, IF 

I,RHSV4«->IRS.7 * (sets 
PAR IN H [Par ty Error}) 

{IRESV4- >IRSTR ■ 

tSETUP 20PK2 FOR WRITE FORMAT 

{GET ,r<ITE SUBSYSTEM COMMAND PACKET 

:SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER-1 

jBR IE CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 



192$: ERRDF ERRNO, T208SSR, PKTSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



h'ATFLG 



jSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG 



Do a WRX T E FORMAT to 
MOV <?WF. I4RES.R0 
JSR PC»T20WFMT 



set IRESV4 



*»*IRSTR 
{IRESV4- 
i SETUP 



FAILED TO SET 
TRAP 
.WORD 

.WORD 
.WORD 

SET 

TRAP 
strobe 



C$ERDF 
908 

T.?08S^R 
PKTSSR 



T20PK2 



1 (sets read 

IRSTR ■ 1 

FOR WRITE FORMAT 



CSCIP1 
high) 



PROGRAM HEADER 
DISPATCH TABLE 
DEFAULT HARDWARE Pi 
SOFTWARE P- TABLE 
SOFTWARE P-TABLE 
GLOBAL EQUATES SECTI 
MEMORY MANAGEMENT DE 
MEMORY MANAGEMENT DE 



TSV05 REGISTER 
TSV05 RCGIST r :R 
TSV05 REGISTER 
TSV05 REGISTER 
TSV05 REGISTER 



AND P 
AND P 
AND P 
AND P 
AND P 

TSV05 REGISTER ANO P 
SPECIAL MACROS ANO 
GLOBAL DATA SECTION 
TSTBLK - TEST DATA 
GLOBAL ENVIRONMENT S 
GLOBAL TEXT MESSAGES 
GLOBAL :; V! MESSAGES 
GLOBAL ERROR REPORT 



PRITSSK 
PRTTSSR 
PRITSSR 

PRIPKT 

PR1XOR 

PR I RAM 

PR IT ADD 

SPACE 

SPACE 

URTCHR 

REWIND 

CKRAM 

CKRAM2 



- PRINT TSSR 

- PRINT TSSP 

- PRINT TSSR 

- PRINT THE 

- PRINT EXPO 

- PRINT RAM 
PRINT MEMO 

• SPACE 9EC0 

- SPACE RECO 
WRITE CHAR 

♦ POSITION T 

- COMPARE RA 

- COMPARE RA 



Bl 
CI 
Dl 
El 
Fl 
Gl 
HI 
II 
Jl 
Kl 
I 1 
Ml 
Nl 



B2 
C3 
Dc: 
E2 
F2 
G2 
H2 
12 
J2 
K2 
L2 
M2 
N? 



B3 
C3 
D3 
E3 
F3 
G3 
H3 
13 
J3 
K3 
L3 
,M3 
,N3 



.B4 
,C4 
.04 
.E4 
.F4 
.G4 
.H4 
.14 
. J4 
.K4 
.14 
.M4 
.N4 



CKMSG 


- COMPARE WR. . 


. .B5 


CKMSG2 


- COMPARE EX, 


. .C5 


CKMSG2 


- COMPARE EX. 


. .05 


PKTMES 


- PRINT TSSR. 


. .E5 


FIFEXP 


- PRINT FIFO. 


. ,F5 


MSGSTAT 


- PRINT STAT. 


..G5 


MSGSUB - 


PRINT WRITE. 


. .H5 


PRAMPKT 


- PRINT RAM . 


. .15 


PRMESS 


- PRINT CONT. 


..J5 


PRMSGEXP 


- PRINT EXP, 


. .K5 


PRBYTEXP 


- PRINT ERR. 


. .L5 


PRBYTEXP 


- PRINT ERR. 


..M'5 


PAMERR 


- PRINT RAM . 


..N5 


r<AMEXP 


- PRINT RAM . 


. .B6 


BADSSR - 


PRINT TSSR . 


. .C6 


C.'KAMB 


- CHECK TSSR. 


. .06 


ENAINT.DSBINT - ENAB. 


. . .E6 


WAITF 


- WAIT FOR S. 


. . .F6 


XNXM 


- CHECK FOR , 


. . .G6 


TSTSETUF 


- PRINT TES. 


. . .H6 


TSTSETUF 


- PRINT TES 


. . .16 


INCERK 


- INCREMENT , 


. . ,J6 


KTON.KTOFF - EN. 


. . ,K6 


FILLMEM 


- FILL MEMOR, 


. .1 6 


CMPMEM 


- COMPARE ME. 


. ..M6 


CMPMEM 


- COMPARE ME. 


. . .N6 


GETPAT 


- GET 6 BIT . 


. . .B7 


GETSEL 


- ISSUE MENU. 


. . .C7 


CHKMAN 


- CHECK MANU. 


. . .07 


ENVIRN 


- SETLP FREE. 


. . .E7 


KTINIT 


- SETUP KT11. 


. . .F7 


KTINIT 


- SETUP KT11. 


. . ,G7 


KTINIT 


- SETUP KTll. 


. . ,H7 


PROTECTION TABLE 


. . .17 


INITIALIZE SECTION . 


. . .J7 


INITIALIZE SECTION . 


. . .K7 


INITIALIZE SECTION . 


. . .L7 


ADD ANO 


DROP LNITS S. 


. . .M7 


ADO ANO 


DROP UNITS S. 


. . .N7 


LI LAN L* 


» AnD REPORT . 


. . .B8 


CLEAN-UP AND REPORT . 


. . .C8 


CLEAN-UP ANO REPORT . 


. . .D8 


TEST 1 


INITIALIZE . 


E8 


TEST 1 


INITIALISE . 


. . .f e 


TEST 1 


INITIALIZE . 


. . .G8 


TEST I 


INITIALIZE . 


. . .H8 


TEST .?: 


BASIC WRITF . 


. . . 18 


TEST 2; 


BASIC URITF 


J8 


TEST <:-. 


BASIC WRITE . 


. . ,K8 


TEST 2: 


BASIC WRIT* . 


...18 


TEST 2: 


BASIC WRITE . 


. . .*$ 


TEST 2. 


BASIC WRITE . 


. . .N8 



TEST 


3: 


SUBTEST lj 


G. 


. ♦ .B9 


TEST 


3: 


SUBTEST 1: 


G. 


. . .C9 


TEST 


3: 


SUBTEST 2; 


M. 


. , .09 


TEST 


3: 


SUBTEST 2; 


M. 


. . .E9 


TEST 


3: 


SUBTEST 3: 


C. 


. . .F9 


TEST 


3: 


SUBTEST 3: 


C. 


. . . 39 


TEST 


3; 


SUBTEST 4: 


N. 


. . .H9 


TEST 


3: 


SUBTEST 4 : 


N, 


. . .19 


TEST 


3; 


SUBTEST 4: 


N. 


. . .J9 


TEST 


3: 


SUBTEST 4: 


N. 


. . .K9 


TEST 


3: 


SUBTEST 4: 


N. 


. . .L9 


TEST 


3: 


SUBTEST 4: 


N. 


. . .M9 


TEST 


3: 


SUBTEST 4 j 


N. 


. . .N9 


TEST 


3: 


SUBTEST 4j 


N. 


. ..BIO 


TEST 


3: 


SUBTEST 4; 


N. 


. ..CIO 


TEST 


4; 


RAM EXERCIS. 


. . .010 


TEST 


4: 


RAM EXERCIS. 


. . .E10 


TEST 


4; 


RAM EXERCIS. 


. . .no 


TEST 


4: 


RAM EXERCIS. 


. . .610 


TEST 


4: 


RAM EXERCIS. 


. . .H10 


TEST 


4: 


RAM EXERCIS. 


. . .110 


TEST 


4 : 


RAM EXERCIS. 


. ..J10 


TEST 


5. 


EXTENDED FF 


K10 


TEST 


5 


SUPTEST 1: 




, . ,1 10 


TEST 


5 


SUBTEST 1: 


g 


. . .M10 


TEST 


5 


SUBTEST 1: 


• 


. ..N10 


TEST 


5 


SUBTEST 1: 




. ..Bll 


TEST 


5 


SUBTEST 1. 




. ..Cll 


TEST 


5 


SUBTEST 2: 




. ..Oil 


TEST 


5 


Sl«TEST 2: 




. . .Ell 


TEST 


5 


SUBTEST 2: 




. . .Fll 


TEST 


5 


SUBTEST 2; 




. . ,G11 


TEST 


5 


SUBTEST 2: 




. . ,H11 


TEST 


5 


SUBTEST 2 




. . .Ill 


TEST 


5 


SUBTEST 2 




. ..Jll 


TEST 


6 


FIFO EXERCI. 


. . .Kll 


TEST 


6 


SUBTEST 1 




. . .Lit 


TEST 


6 


SUBTEST 1 




. . .Mil 


TEST 


6 


• SUBTEST 2 




...Nil 


TEST 


6 


: SUBTEST 2 




. ..B12 


TEST 


6 


: SUBTEST 2 




. ..C12 


T EST 


6 


: SUBTEST 2 




. . .D12 


TEST 


6 


: SUBTEST 2 




. . .E12 


TEST 


6 


: SUBTEST 3 




. . .F12 


TEST 


6 


: SUBTEST 3 




. . .G12 


TEST 


6 


: SUBTEST 3 




. . .H12 


TEST 


6 


: SUBTEST 3 




. . .112 


TEST 


6 


: SUBTEST 3 




. . .J12 


TEST 


6 


: SUBTEST 3 




. ..K12 


TEST 


6 


: SUBTEST 4 




. . .L12 


IEST 


6 


: SUBTEST 4 




. . .MI2 


TEST 


6 


; SUB T EST 4 




. . Ml?. 



TEST 


6t 


SUBTEST 


5 




. . .813 


TEST 


6: 


SUBTEST 


5 




. ..C13 


TEST 


6: 


SUBTEST 


5 




. . .D13 


TEST 


6: 


SUBTEST 


5 




. . .E13 


TEST 


6: 


SUBTEST 


5 




. . .F13 


TEST 


6: 


SUBTEST 


6 




. . .G13 


TEST 


6: 


SUBTEST 


6 




. . .H13 


TEST 


6; 


SUBTEST 


6 




. . .113 


TEST 


6: 


SUBTEST 


6 




. . .J13 


TEST 


6: 


SUBTEST 


6 




. . .K13 


TEST 


6: 


SUBTEST 


6 




. . .L13 


TEST 


6: 


SUBTEST 


6 




. . .M13 


TEST 


6: 


SUBTEST 


6 




. . .N13 


TEST 


7: 


STATIC TRAN B14 


TEST 


7: 


STATIC TRAN. 


. ..C14 


TEST 


7; 


STATIC TRAN. 


. ..014 


TEST 


7: 


STATIC TRAN. 


. . .E14 


TEST 


7; 


STATIC TRAN. 


. . .F14 


TEST 


8: 


TRANSPORT B. 


. . .G14 


TEST 


8: 


SUBTEST 


1 




. . .H14 


TEST 


8: 


SUBTEST 


1 




. ..114 


TEST 


8: 


SHIEST 


1 




. . .J14 


TEST 


8: 


•SUBTEST 


1 




. . ,K14 


TEST 


8: 


SUBTEST 


1 




. . .L14 


TEST 


8: 


SUBTEST 


X 




. . .M14 


TEST 


8: 


SUBTEST 


1 




. ..N14 


TEST 


8: 


SLBTEST 


1: B15 


TEST 


8; 


SUBTEST 


2 




. ..C15 


TEST 


8: 


SUBTEST 


2 




. . .015 


TEST 


8: 


SUBTEST 


2 




. . .E15 


TEST 


8: 


SUBTEST 


2 




. . .F15 


TEST 


8; 


SUBTEST 


2 




. . .G15 


TEST 


8: 


SUBTEST 


3 




. . .H15 


TEST 


8: 


SUBTEST 


3 




. . .115 


TEST 


8: 


SUBTEST 


3 




. ..J15 


TEST 


8: 


SUBTEST 


3 




. . .K15 


TEST 


8: 


SUBTEST 


3 




. . .L15 


TEST 


8: 


SUBTEST 


4 L. 


. ..M15 


TEST 


8: 


SUBTEST 


4 L. 


. . .N15 


TEST 


8: 


SUBTEST 


4 1 B16 


TEST 


8; 


SUBTEST 


4 L. 


. . ,C16 


TEST 


8: 


SUBTEST 


4 L. 


. . .Dl* 


TEST 


8: 


SUBTEST 


4 L. 


. . .E16 


TEST 


8: 
8: 


SUBTEST 
SUBTEST 


4 

\ 


1 


F)fc 


TES r 


L. 


. . .G16 


TEST 


8: 


SUBTEST 


4 L. 


. . ,H16 


TEST 


8: 


SUBTEST 


4 t . 


. , .116 


TEST 


9: 


READ/WRITE . 


. . .J16 


TEST 


9: 


READ/WRITE . 


. . ,K16 


TEST 


9: 


READ/WRITE . 


. .1 lb 


TEST 


9j 


READ/WRITE , 


. ..M16 



Bl 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17:14 
TEST 9 5 REAO/WRITE PATA PARITY TEST 



5395 
5396 
539? 
539* 
5399 

5400 
5401 
5402 



5403 
5404 

5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 

54X3 
5414 



5415 

5416 

5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
fW25 
5426 
5427 
5428 
5429 
5430 
5431 
5432 



5433 

54 34 

5435 
5436 



063526 
063532 
063536 
063542 
0*3*56 
063560 
063562 
063562 
063562 
063564 
063566 
063570 
063572 
063576 
063576 

063600 
063604 
063610 
063614 
0.3620 
063634 
063636 
063640 
063640 
063640 
063642 
063644 
063646 
063650 
063654 
063654 

C63656 
063662 
063666 
0636 ->2 
063674 
063702 
063706 
063710 
063714 
063720 
063724 
063730 
063740 
063742 
063742 
063742 
063744 
063746 
063750 
063752 
063752 

063754 

06576Q 



012704 066550 
010465 000000 
004737 016336 

103407 
010001 



104455 
001615 
065551 
012046 
005237 



212$: 



MOV #T20PK2.R4 

MOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

rORCERROR 27.2$ 

BCS 220$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T206SSR , PKTSSR 



SEQ 206 



I GET WRITE SUBSYSTEM COMMANO PACKET 
l SET THE PACKET AOORESS TO EXECUTE 
I WAIT *0R SSR TO SET 

iMOfORCE ERROR IF FORCER-l 
I BR IF CARRY SET (GOOO RETURN) 
tSAVE CONTENTS OF TSSR 



104406 

004737 
012704 
010465 
004737 

103407 
010001 



104455 
001616 
06} 3 32 
012046 
005237 

104406 

004737 
012701 
012702 
011?11 
016261 
052711 
005000 
012701 
012702 
012703 
004737 

103404 



002222 



066146 
066550 
000000 
016336 



220$ i 

J 



INC 
CKLOOP 



FATFLG 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
i SET FATAL ERROR FLAG 
»L0OP ON ERROR, IF FLAG SET 

TRAP 



2321: 



Do ft Writ* Subsystem READ STATUS 

JSR PC.T20SRD 

MOV #T20PK2,R4 

MOV R4,TS0e(R5) 

JSR PC.CHKTSSR 

FORCERROR 232$ 

BCS 240$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO, T203SSR, PKTSSR 



CIERDF 
909 

T20ASSR 
PKTSSR 



C$CLP1 



» SETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
iSZT THE PACKET AOORESS TO EXECUTE 
j WAIT FOR SSR TO SET 

iBeOFORCE ERROR IF FORCER-l 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



002222 



066354 
065102 
066442 

000002 000002 
100000 

06C4 22 
065062 
000024 
011500 



240$ t 

\ 



INC 
CKLOOP 



FATFLG 



If F;s*d Data parity ar-for NOW 



104456 
001617 
065617 
012350 

104406 

012700 0000?0 
004737 0663Q2 



JSR PC.T20SETEXP 

MOV #T20EXSTA.R1 

MOV #T20BFSTA.R2 

MOV (R2).(R1) 

MOV 2<R2).2(R1) 

BIS #Si.PARERR,(Rl) 

CLR RO 

MOV #T20eFR.Rl 

MOV ♦T20EXP.R2 

MOV #20.. R3 

JSR PC.CKMSG2 
FORCERROR 252$,N0TSSR 

BCS 260$ 
NEXT.ERRNO 

252$: ERRHRD ERRNO, T20SWP.MSGSTAT 



260$ t CKLOOP 

j Do o Writ* Misc to RESET FIFO 

MOV GMS.RSFir.RO 

JSR PC,T20WMISC 



» DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 910 
.WORD T203SSR 
.WORD PKTSSR 

i SET FATAL ERROR FLAG 

jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

Than Print Error 

iSE T WORDS 0-7 EXPD-RECV (NOT TESTING) 

,GE> FVPECTED READ STATUS 

iGEI MECV READ STATUS 

I SET EXPO WORD #8 - RECV TEMP 

iSET EXPO WORD #9 • RECV (MOT TESTED) 

i SET EXP PAR ERR -1 

iHIGH RECV AOORESS FOR CKMSG2 

i LOW RECV AOORESS FOR CKM0G2 

i EXPO AOORESS 

iNUMBER OF BYTES TO COMPARE 

i EXPO EQUAL RECV? 

iSSO 

jBR IF YES 



jREPORT ERROR 



I LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRO 

911 

T20SWP 

MSGSTAT 

C$CLP1 



iSET RESET FIFO COMMANO 

1 SETUP" T20PK2 FOR WRITE MISC 



CI 



TSV 
TES 



>?m&$fiwmm 



06-FEB-64 17:14 



5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 



5445 
5446 

5447 
5448 
5449 
5450 
5451 
54 52 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
54t>0 
5461 
5462 
5463 



5464 

5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
54/4 
54/5 
54 76 



5477 
5478, 



063/64 
063770 
063774 
064000 
064014 
064016 
064020 
064020 
064020 
064022 
064024 
064026 
064030 
064034 
064034 



064036 
064042 
064046 
064052 
064054 
064062 
064066 
064070 
0640^4 
064100 
064104 
064110 
064120 
064122 
064122 
064122 
064124 
064126 
064130 
064132 
064132 



064134 
064140 
064144 
064150 
064154 
064160 
064174 
064176 
064200 
064200 
064200 
064202 
064204 
064206 
064210 
064214 
064214 



012704 066550 
010465 000000 
004737 016336 

103407 
010001 



104455 
001620 
065266 
012046 
005237 002222 

104406 



004737 066354 

012701 065102 

012702 066442 
011211 

016261 000002 000002 

042711 100000 
005000 

012701 066422 

012702 065062 

012703 000024 
004737 011500 

103404 



104456 
001621 
065726 
012350 

104406 



MOV *T20PK2.R4 
MOV R4,TSDB<R5) 
JSR PC.CHKTSSR 
FORCERROR 282 $ 
BC5 2901 
MOV R0.R1 
NEXT.ERRNO 



SEQ 209 



iGET WRITE SUBSYSTEM COMMAND PACKET 
l SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jOSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



282${ ERRDF SRRNO, T202SSR.PKTSSR jDEVICE FATAL SSR 



2901s 

J 
I 



INC 
CKLOOP 



FATFLG 



FAILED TO SEi 
TRAP 
.WORD 
♦ WORD 
.WORD 



,SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



302$: 



Do a Writ* Subeyetem READ 
If Peso' Data parity arror 
JSR PC.T20SETEXP 
MOV 0T20EXSTA.R1 
MOV *T206F5TA,R2 
MOV (R2),(Ri) 
MOV 2(R2).2(R1> 
BIC eSl.PARERR.(Rl) 

CLR RO 

MOV #T206FR.R1 

MOV #T20eXP.R2 

MOV J20..R3 

JSR PC.CKMSG2 

FORCERROR 302$ .NOTSSR 

BCS 3201 

NEXT.ERRNO 

ERRHRD ERRNO , T20RSF , MSGSTAT 



SET 

TRAP 



CIERDF 
912 

T202SSR 
PKTSSR 



C$CLP1 



STATUS 

NOT-0 Than Print Error 

I SET WORDS 0-7 EXPD-RECV (NOT TESTING) 

iGET EXPECTED READ STATUS 

iGET RECV READ STATUS 

l SET EXPD WORD *8 - RECV TEMP 

iSET EXPD WORD 09 - RECV (NOT TESTED) 

i SET EXP PAR ERR -0 

IMIGH RECV ADORESS FOR CKMSG2 

l LOW RECV ADORESS FOR CKMSG2 

»EXPD ADORESS 

iNUMBER OF BYTES TO COMPARE 

I EXPD EQUAL RECV? 

i&QO 

iBR IF YES 



jREPORT ERROR 



CtERHRD 

913 

T20RSF 

MSGSTAT 



320$ i CKLOOP 



012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001622 
065551 
012046 
005237 

104406 



000001 
066262 
066550 
000000 
016336 



(* Var 5 fy Data can ba transferred without 
Do a WRITE FORMAT to sat IRESV4-»>IRSTR 



MOV OWF.I4ftES.R0 

JSR PC.T20WFMT 

MOV #T20PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 



TRAP 
»WO«D 

♦ WORD 

♦ WORD 
» LOOP ON ERROR. IF FLAG S*T 

YRAP 
Error *) 
read etroba high) 



CtCLPl 



a Pari ty 

• 1 (aeta 



FORCERROR 
BCS 340$ 

MOV R0.R1 

NEXT.tRRNO 



332$ 



»IRESV4-->IRSTR ■ 1 
I SETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUeSYSTFM COMMAND PACKET 
,SET THE PACKET ADORESS TO EXECUTE 
iWAIT FOR SSR TO SET 

ifiWDFORCE EGROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
l SAVE CONTENTS OF TSSR 



332$: ERRUF ERRNO. T208SSR, PKTSSR iDEVICE FATAL SSR 



00222; 



340$ 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 

♦ WORD 

♦ WORD 



iSET FATAL ERROR FLAG 
I LOOP ON ERROR* IF FLAG 



SET 
TRAP 



C$ERDF 
914 

T208SSR 
PKTSSR 



c$clpi 



Dl 



IS? ^W&Rl^^ATA^jT^f^' 



06-FEB-84 17:14 



5479 
5430 
5481 
5482 
5483 
5484 
5485 
5486 
5487 

5488 
5489 

54 SO 
5491 
5492 



5493 

5494 

S195 
5496 
5497 
5498 
5499 
^500 
5501 
5502 
5503 
5504 
5505 
5506 



550/ 
550* 

5509 
5010 
"Ml 

5513 

5514 
5515 
5516 
5317 
5518 
5519 



5520 
5521 



064216 
064222 
064226 
064232 
064236 
064242 
064246 
064252 
064266 
064270 
064272 
064272 
064272 
064274 
064276 
064300 
064302 

06^306 
064306 

064310 
064314 
064320 
064324 
064330 
064354 
064340 
064354 
064356 
064560 
064560 
064360 
064562 
064564 
064566 
064570 
064374 
0643/4 

064576 
064402 
064406 
064412 
064416 
06442,'. 
064.'^6 
064440 
06444i. 
064442 
064442 
064444 
06444* 
064450 
064452 
064456 



012700 
052700 
052700 
004737 
012704 
010465 
004757 

105407 
010001 



104455 
001625 
065577 
012CK.J 
005257 

104406 

012700 
012701 
004757 
012704 
010465 
004737 

105407 
010001 



1C4455 
001624 
065442 
012046 
005257 

104406 

012700 
004757 
012704 
010465 
0047*? 

.05407 

010001 



104455 
001625 
065506 
012046 
005237 



000100 
000040 
000020 
066166 
066550 
000000 
016556 



352$: 



Do a WRITE NPR to set loopback 
and CLEAR Writ* Wrong 
MOV *NP.0UT,R0 
BIS OMP.LOOP.RO 
BIS *NP.WRP,R0 
JSR PC.T20WNPR 
MOV *T20PK2,R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 
FORCERROR 552$ 
BCS 560$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRN0.T204SSR, PKTSSR 



SEQ 210 



and tap* direction OUT and 

Par ty. 
,SET TAPE DIRECTION OUT 
i SET LOOPBACK 

iCLEAR WRITE WROfJG PARITY (INVERTED) 
i SETUP T20PK2 FOR WRITE NPR 
(GET WRITE SUBSYSTEM COMMAND PACKET 
t SET THE PACKET ADDRESS TO EXECUTE 
i WAIT FOR SSR TO SET 

iSQOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 



TRAP 


CIERDF 


.WORD 


915 


WORD 


T204S5R 


. W JRD 


PKTSSR 



002222 



000001 
002512 
066226 
066550 
000000 
016356 



002222 



000001 
066206 
066550 
000000 
016556 





INC FATFLG 


360$; 


CKLOOP 


J 


Do a WRITE FIFO with byte coun 




MOV tl.RO 




M0> #0ATA.R1 




JSR PC.T20WFIF 




MOV #T20PK2.R4 




MOV R4,TSD6(R5) 




JSR PC.CHKTSSR 




FORCERROR 572$ 




3CS 380$ 




MOV R0.R1 




NEXT.ERRNO 


572$: 


ERRDF ERRN0.T205SSR, PKTSSR 




INC FATFLG 


580$: 


CKLOOP 


t 


Do a READ FIFO with tape d»rec 



iSET FATAL ERROR FLAG 
jLOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

equal to 1 and Tap* direction OUT 
iWRITE 1 BYTE 
iFIFO WRITE DATA ADDRESS 
iSETUP T20PK2 FOR WRITE FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADORESS TO EXECUTE 
jWAIT FOR SSR TO SET 

tMOFORCE ERROR IF FORCER-1 
tBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
,SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERDF 
916 

T205SSR 
PKTSSR 



C$CLP1 



592$: 



MOV 01. RO 

JSR PC.T20RFIF 

MOV *T20PK2.R4 

MOV R4.TSD6(R5) 

JSR PC.CHKTSSR 

FORCERROR 592$ 

BCS 400$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T206SSR , PKTSSR 



tlon OUT to load tape out write latch 
iSET READ BYTE COUNT 
iSETUP T20PK2 FOR READ FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
,WAIT FOR SSR TO SET 

iBfiOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



00'-222 



400$; 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 

TRAP C$ERDF 
.WORO 917 
.WORD T206SSR 
.WORD PKTSSR 

j SET FATAL ERROR FLAG 

lLOOP ON ERROR, IF FLAG SET 



El 



TSV5 - HARDWARE TESTS MACRO M1113 06-FEB-84 17s 14 
TEST 9: READ/WRITE DATA PARITY TEST 



SEQ 211 



5522 
5523 
5524 
5525 
5526 
5527 
5528 
5529 
5530 
5531 
3532 
5533 



5534 

5535 

5536 
5537 
5538 
5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 



064456 104406 



554 7 
5548 

5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 



5560 
5561 

5562 



064460 
064462 
064466 
0644 72 
064476 
064502 
064516 
064520 
064522 
064522 
064522 
064524 
064526 
064530 
064532 
064536 
064536 

064540 
U64544 
064550 
064554 
064560 
064564 
064600 
U64602 
064604 
064604 
064604 
064606 
064610 
064612 
064614 
064620 
064620 



064622 
064626 
064632 
064636 
064642 
064656 
064660 
06466? 
064662 
064662 
064664 
064666 
064670 
064672 
064676 
064676 



005000 

004737 C66262 

012704 066550 

010465 000000 

004737 016336 

103407 
010001 



104455 
001626 
065551 
012046 
005237 



412$; 



Do a WRITE FORMAT to set IRESV4 
(Read St rob* set* PAR IN 

CLR RO 

JSR PC.T20WFMT 

MOV 0T20PK2.R4 

MOV R4.TS0BCR5) 

JSR PC.CHKTSSR 

FORCERROR 4121 

BCS 420$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T208SSR, PKTSSR 



TRAP 
strobe 



CICLP1 
low) 



-•>IRSTR ■ (sets read 
H [Parity Error]) 
iIRESV4-->IRSTR • 
jSETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

jOOOFORCE ERROR IF FORCER -1 
»BR IF CARRY SET (GOOO RETURN) 
tSAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 918 
.WORD T208SSR 
.WORD PKTSSR 



104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001627 
065551 
012046 
005237 

104406 



0O4737 
012704 
010465 
004737 

105407 

010001 



104455 
001630 
065332 
012046 
005237 

104406 



002222 



000001 
066262 
066550 
000000 
016336 



420*: 



INC 

CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



432$: 



Do a WRITE FORMAT to set IRESV4 

MOV eWF. I4RES.R0 

JSR PC.T20WFMT 

MOV *T20PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 4321 

BCS 440$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T208SSR, PKTSSR 



SET 

TRAP 

strobe 



C$ClP1 
high) 



-->IRSTR - 1 (sets read 
iIRESV4-->IRSTR ■ 1 
i SETUP T20PK2 FOR WRITE FORMAT 
iGET WRITE SUBSYSTEM COMMANO PACKET 
l SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 



002222 



066146 
066550 
000000 

016336 



440$: 



INC 
CKLOOP 



FATFLG 



jDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
i SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERDF 
919 

T208SSR 
PKTSSR 



C$CLP1 



i Do a Write Subsystem Rf*AD STATUS 

JSR PC.T20S&D 

MOV OT20PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 452$ 

BCS 460$ 

MOV R0.R1 

NEXT.ERRNO 
452$: ERRDF ERRNO, T203S3R , PKTSSR 



i SETUP PACKET FOR READ STATUS 
»GET WRITE SUBSYSTEM COMMAND PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

lOSOFORCE ERROR IF F0RCER*1 
,BR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



002222 



460$: 

; 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
,SET FATA! ERROR FLAG 
j LOOP ON ERROR. IF FLAG SET 

TRAP 



C$ERDF 
920 

T203SSR 
PKTSSR 



C5CLP1 



If Read Data parity error NOT»0 Then Print Error 



Fl 



TSV5 - HARDWARE 


TESTS 


<mm 06 


-FED-84 


17;14 




TEST 9: READ/WRITE OAT) 








5563 064 700 


004737 


066354 




JSR 


PC.T20SETEXP 


5564 064704 


012701 


065102 




MOV 


*T20EXSTA,R1 


5565 064710 


012702 


066442 




MOV 


*T20BFSTA,R2 


5566 064 714 


011211 






MOV 


CR2\CR1) 


5567 064716 


016261 


000002 000002 




MOV 


2(R2),2(R1) 


5568 064724 


042711 


100000 




BIC 


*S1.PARERR,(R1) 


5569 064 730 


005000 






CLR 


RO 


5570 064732 


012701 


066422 




MOV 


*T20BFR,R1 


5571 064 736 


012702 


065062 




MOV 


0T20EXP.R2 


5572 0647*2 


012703 


000024 




MOV 


020. ,R3 


5573 064746 


004737 


011500 




JSR 


PC.CKMSG2 


5574 064752 








FORCERROR 472$ .NOTSSR 


5575 064762 


103404 






BCS 


480$ 


5576 064764 








NEXT.ERRNO 


5577 064764 






472$; 


ERRHRD 


ERRN0,Y20CWP,MSGSTAT 


064 764 


104456 










064766 


001631 










064770 


066027 










064772 


012350 










5576 064774 






480$; 


CKLOOP 




064774 


104406 










5579 












5580 064 776 








FORCEXIT 555$ 


5581 065006 


013703 


002316 




MOV 


TSTPTR.R3 


5562 065012 


020327 


003062 




CMP 


R3.0TBLEND 


5583 0650)6 


103002 






SHIS 


555$ 


5584 065020 


000137 


063074 




JMP 


100$ 


5585 065024 






555$; 






5586 












5587 065024 








ENOSUB 




065024 












065024 


104403 










5588 












5589 065026 


005737 


002222 




TST 


FATFLG 


5590 065032 


001402 






BEQ 


560$ 


5591 065034 


004737 


017202 




JSR 


PC.CKDROP 


5592 065040 






560$; 






5593 065040 


004737 


016456 




JSR 


PC. T STL OOP 


5594 065044 


103002 






BCC 


565$ 


5595 065046 


000137 


050526 




JMP 


U8L00P 


5596 065052 






565$; 






5597 065052 








EXIT 


TST 


065052 


104432 










06^054 


001610 










5598 












5599 












5600 






i * 






5601 






i LOCAL 


STORAGE 


FOR THIS TEST 


5602 






i - 






5603 












5604 












5605 06505* 






T20MSK 


• 




5606 












5607 065056 


377 






.BYTE 


tC<000> 


5603 065057 


037 






.BtTE 


*C<340> 


5609 065060 


?60 






.BtTE 


tC<0l7> 


5610 065061 


000 






.BYTE 






SEQ 212 



,SET WORDS 0-7 EXPO-RECV (NOT TESTING) 

jGET EXPECTEO READ STATUS 

,GET RECV READ STATUS 

I SET EXPD WORD *8 - RECV TEMP 

*SET EXPD WORD 09 ■ RECV (NOT TESTED) 

I SET EXP PAR ERR -0 

I HIGH RECV ADDRESS FOR CKMSG2 

lLOW RECV ADDRESS FOR CKMSG2 

I EXPD AODRESS 

iNUMBER OF BYTES TO COMPARE 

jEXPD EQUAL RECV? 

1 800 

iBR IF YES 

j REPORT ERROR 



TRAP 


C$ERHRD 


.WORD 


921 


.WORD 


T20CWP 


.WORD 


MSGSTAT 


j LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 


iSQO 




j RESTORE CURRENT TSTBLK POINTER 




jENO OF TSTBLK? 




;BR IF YES 




iDO ANOTHER TSTBLK PATTERN 





x//////////// END SUBTEST ////////// 

L10074: 

TRAP C$ESUB 

j ANY FATAL ERRORS ? 

i BRANCH IF NOT 

j TRY TO DROP THE UNIT 

iDO ITERATIONS? 

,BR IF NO 

jLOOP UNTIL ITERATIONS DONE 

\////////// EXIT TEST ////////// 

TRAP C$EXIT 
.WORD L10073- 



IN 
TO 



READ 
I 



STATUS 



,MASK OF UNTESTED BITS 

jUNTESTEO BITS ARE SET 

iBYTE MASK 

,BYTE 1 MASK ( PARERR. IRESV2 . IRESV1 ) 

iBYTt 2 (TIMER A, TIMER B.UNDEFINED< 1 :0O 

jMAKE IT EVEN 



Gl 



TSV5 • HARDWARE TE; 
TEST 9t READ/WRITI 



IaTaWt? 1 ^ 
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5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
56£1 
5622 
5623 
j624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
rv636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
564 7 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
566^ 
5663 
. 5664 
S665 
5666 
S667 



065062 
965062 
065064 
065066 
065070 
065072 
065074 
065076 
065100 
065102 
065202 



065202 
065231 
065266 
065332 
065377 
065442 
065506 
065551 
065617 

CSS 726 

066027 



066122 
066122 
066126 
066132 
066136 
066140 
066142 
066144 



066146 
066146 
066152 
066156 

066162 
0661G4 



000000 
000000 
000000 

oooooc 

000000 
000000 
000000 
000000 



122 
127 
127 
127 
127 
127 
127 
127 
122 
122 
122 



012701 
012702 
105021 
005302 
003375 
000207 



004737 

012700 
112720 
105010 
000207 



145 
122 
122 
122 
122 
122 
122 

:.zi 

145 
145 



066422 
000120 



066122 
066560 
000005 



T20EXP; 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





T20EXSTA: .BLKB 


64. 


T20EXEND: 





I * 



SEQ 213 



tBEGIN EXACTED DATA BUFFER 
iMESSAGE TYPE 
<OATA FIELD LENGTH 
jRBPCR 
jXSTO 
jXSTl 
IXST2 
jXST3 

jXST4 (ALWAYS PRESENT FOR WRITE SUB.) 
EXPECTED READ STATUS AND WRITE FIFO DATA 
tEND EXPECTED DATA BUFFER 



t LOCAL TEXT MESSAGES FOR TEST 



i - 

TST20ID- 

T20SSR: 

T202SSR: 

T203SSR: 

T204SSR: 

T205SSR: 

T206SSR: 

1 T208SSR; 

1 T20SWP; 

1 T20RSF; 

1 T20CWP : 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



ASCIZ 'Read/Write Data Parity' 
WRITE CHARACTERISTICS Failed' 
WRITE SUBSYSTEM (Writ* MIsc) Failed' 
WRITE SUBSYSTEM (Read Status) Failed' 
WRITE SUBSYSTEM (Write Nor) Failed' 
WRITE SUBSYSTEM (Write FIFO) Failed' 
WRITE SUBSYSTEM (Read FIFO) Failed* 
WRITE SUBSYSTEM (Write Format) Failed' 
Read Data Parity Error (PARERR) Failed 
Read Data Parity Error (PARERR) Failed 



to Set after Write Wrong Parity' 
to Clear after RESET FIFO' 



Read Data Parity Error (PARERR) occurred in Data Loopback' 



i ♦ 



i CLEAR MESSAGE BUFFER 



T20CLRBUF ; 






SAVREG 






MOV 


*T206FR,Ri 




MOV 


♦T208END-T20BFR.R2 


10$: 


CLRB 


(Rl)* 




DEC 


R2 




BGT 


10$ 




RTS 


PC 


i ♦ 

I SETUP 


T20PK2 


PACKET FOR READ STA 


T20SRD: 








JSR 


PC.T20CLRBUF 




MOV 


0T2ODT2.RO 




MOVB 


*PW,RDSTATUS,(RO)» 




CLRB 


(RO) 




RTS 


PC 



;SAVE R1-R5 UNTIL NEXT RETURN 

iGET MESSAGE BUFFER a .JDRESS 

I SIZE OF MESSAGE BUFFER IN BYTES 

»CLEAR A BYTE 

j DONE? 

iBR IF NO 

jRETURN 



jCLEAR MESSAGE BUFFER 

iWRITE SUBSYSTEM DATA BUFFER 

, STORE READ STATUS COMMAND IN BSELO 

I CLEAR BSEL1 

j RE TURN 



j SETUP T20PK2 PACKET FOR WRITE NPR 

! INPUT: 

s RO CONTAINS BSEL1 NPR DATA 



-II 



TSV5 
TES 



* '^^U^^ATA^SWH^l 
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SEQ 214 



5668 

5669 

5670 

5671 

5672 

56 73 

5674 

5675 

5676 

5677 

5676 

5679 

5690 

5681 

5682 

S6o3 

5684 

5685 

5686 

5687 

5688 

5689 

56 >C 

5691 

569? 

5695 

5694 

5695 

5696 

S697 

5698 

569, 

5700 

5701 

5702 

$703 

5704 

5705 

5706 

570 7 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 



066166 
066166 
066172 
066176 
066202 
066204 



066206 
06^206 
066212 
066216 
066222 
066224 



066226 
066226 
066232 
066236 
066242 
066246 
066250 
066252 
066254 
066256 
066260 



066262 
066262 
066266 
066272 

066276 
066300 



004737 066122 
012701 066560 
112721 00001 I 
110011 
000207 



004737 066122 
012701 066560 
112721 000003 
110021. 
000207 



004737 
012702 
112722 
110022 
005022 
112122 
005300 
003375 
000207 



004737 
012701 
112721 
110021 
000207 



t/66122 
066340 

000004 



066122 
066560 
000007 



T20WNPR: 




JSR 


PC.T20CLRBUF 


MOV 


0T20DT2.R1 


MOVB 


GPW.WNPR.CRl)* 


MOVB 


RO.CRl) 


RTS 


PC 



j CLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BUFFER 
j STORE WRITE NPR IN BSELO 
» STORE NPR DATA IN BSEL1 
jRETURN 



SETUP T20PK2 PACKET FOR READ FIFO 

INPUT? 

RO CONTAINS SEL2 BYTE COUNT 



T20RFIF: 




JSR 


PC.T20CLRBUF 


MOV 


♦T20DT2.R1 


M0V3 


OPW.RFIFO.CRD* 


MOVB 


R0,(R1)» 


RTS 


PC 


j SETUP T20PK2 


PACKET FOR WRITE 



j CLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BUFFER 
j STORE READ FIFO IN BSELO 
i STORE BYTE COUNT IN BSEL1 
jRETURN 



FIFO 



INPUT: 



RO CONTAINS BYTE COUNT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



T20WFIF: 




SAVREG 




JSR 


PC.T20CLRBUf 


MOV 


0T20DT2.R2 


MOVB 


*PU.WFIF0,(&2)* 


MOVB 


R0.CR2)* 


CLR 


(R2)* 


10$: MOVB 


(R1)»,(R2)* 


DEC 


RO 


BGV 


10$ 


RTS 


PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

I CLEAR MESSAGE BUFFER 

jWRITE SUBSYSTEM DATA BUFFER 

jSTORE WRITE FIFO IN BSELO 

jSTORE BYTE COLNT IN BSEL1 

i CLEAR SEL2 (UNUSED) 

1 STORE DATA PATTERN BYTE 

iDONE ALL BYTES? 

j BR IF NO 

jRETURN 



J ♦ 



j SETUP T20PK2 FOR WRITE FORMAT TRAN.v'ORT REGISTER 
I INPUT: 



RO CONTAINS DRIVING DATA PATTERN 



T20WFMT; 

JSR PC.T20CLRBUF 

MOV *T20DT2,R1 

MOVB ♦PW.WFMT.(Rl)* 

MOVB RO.CRD* 

RTS PC 

SETUP T20PK2 PACKET FOR WRITE MISC. 

RO CONTAINS WRITE MISC DATA 



iCLEAR MESSAGE BUFFER 
I WRITE S^SYSTEM DATA BUFFER 
, STORE WRITE FORMAT IN BSr.LO 
, STORE DATA WORD IN B5EL1 
j RETURN 



II 



MACRO Mill. 
READ/WRITE DATA PARITY TE! 



TSV5 - HARDWARE TESTS 
TEST 9; 



5725 

5726 

5727 

5728 

5729 

5750 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

57!>8 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

57A6 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

57 74 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 



066302 
066302 
066306 
066312 
066314 



066316 
066*16 
066322 
066326 
066332 



066334 
066334 
Ctf.6340 
066344 
066346 
066350 
066352 



06635* 
066354 
066360 
066364 
066370 
066372 
066374 
066376 



066400 
066400 
066402 
066404 
066406 

066410 
066^10 
066412 

066414 
066416 
066420 



012701 066560 
112721 000010 
110011 
000207 



012700 066^60 

112720 000010 

112710 000200 
000207 



012701 065062 

012700 000120 

105021 

005300 

003375 

000207 



012702 065062 

012703 066422 
012700 000010 
012322 
005300 
003375 
000207 



100004 
066410 
000000 
00001? 



066422 
000000 
000024 
000000 
000007 



06-FEB-84 17 : 14 



T20WMISC; 

MOV 
MOVB 
MOVB 
RTS 

\ ♦ 



M20DT2.R1 

♦PW.WMISC.CR1)* 

RO.(Ri) 

PC 



SEQ 215 



{WRITE SUBSYSTEM DATA BUFFER 

i STORE WRITE MISCELLANEOUS IN BSELO 

j STORE INVERT EXTENDED FEATURES IN BSEL1 

I RETURN 



j SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 



T20SEXT; 



MOV *T20DT2,R0 

MOVB *PW.WMISC,(RO)* 

MOVB *MS.EXT,(RO) 

RTS PC 



i ♦ 



i CLEAR EXPECTED DATA MESSAGE BUFFER 



T20CLEXP: 

MOV 
MOV 

10*: CLRB 
DEC 
BGT 
RTS 



*T20EXP,R1 

0T20EXEND-T20EXP.R0 

<R1)» 

RO 

10$ 

PC 



jWRITE SUBSYSTEM DATA BUFFER 

i STORE WRITE MISCELLANEOUS IN BSELO 

j STORE INVERT EXTENDED FEATURES IN BStLl 

{RETURN 



iGET EXPO ADDRESS 
{GET EXPO SIZE 
, CLEAR A BYTE 
i DONE? 
jBR IF NO 
jRETURN 



{Set WORDS 0-7 of expd message BUFFER ■ to recv since not testing 

T20SETEXP: 

MOV 

MOV 

MOV 
5*} MOV 

DEC 

BGT 

RTS 



0T20EXP.R2 
0T20BFR.R3 
08. ,R0 
(R3)*.(R2)* 

RO 
5$ 
PC 



iGET EXPD 

iGET REAO STATUS RECV BUFFER 

{SET WORDS 0-7 EXP -RECV 

jSET EXPD-RECV 

iOONE WORDS 0-7 WORDS? 

i BR IF NO 

{RETURN 



iWRITE CHARACTERISTICS COMMAND PACKET 



T20PACKET : 

.WORD 
.WORD 
.WORD 
.WORD 



T20DATAj 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



i 00004 

T?ODATA 



10. 



T20BFR 


20. 


7 



{COMMAND PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND, WITH 

{ADDRESS OF CHARACTERISTICS BLOCK 

{MINIMUM MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 
jESS.ENe-EAI.ERI 

;EXTENDLJ FEATURES UNIT NO. 



ACK 



{MESSAGE BUFFER FOR ALL TEST 17 COMMANDS 



Jl 



TSV5 > HARDWARE TESTS MACRO Mlli3 06-FEB-84 17; 14 
TEST 9; READ/WRITE DATA PARITY TEST 



5785 

5786 

5787 

5788 

5789 

579u 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5 798 

5800 

5803 

5803 

5804 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5811 

b815 



5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5831 
5832 
5833 
5834 
5935 
5836 
5837 
5838 
5839 
5840 
5841 



066422 
Cv.6422 
066424 
066426 
066430 
066432 
066434 
066436 
066440 
066442 
066542 



066550 
066550 
066552 
066554 
066556 

066560 
066560 
066561 
066562 
066564 



066664 
066664 
066664 



000000 
000000 
000000 
000000 
000000 

ooocoo 

000000 
000000 



066^50 

100006 
066560 
000000 
000012 



000 

000 

000000 



1C<U01 



T20BFR; 








.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 





T20BFSTA: .BLKB 


64. 


T20BEN0! 






iWRITE SUBSYSTEM READ STATUS 


2 


♦-<. »10 


>£177770 


T20PK2: 








.WCRD 


P.WHTSUBIP.A 




WORD 


T20DT2 




.WORD 







.WORD 


10. 


T20DT2? 








.BYTE 







.BYTE 







.WORD 







.BLKB 


64. 



SEQ 216 

I BEGIN MESSAGE BUFFER 

^MESSAGE TYPE 

,DATA FIELD LENGTH 

jRBPCR 

iXSTO 

jXSTl 

|XST2 

»XST3 

jXST4 



jXST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
iREAD STATUS AND WRITE FIFO BUFFER 
i END OF MESSAGE BUFFER 



, WRITE SUBSYSTEM UITH ACK 
»LOW ADDRESS OF DATA BLOCK 
I HIGH ADDRESS OF DATA BLOCK 
j MINIMUM MESSAGE PACKET SIZE 

tDATA BLOCK 

jBSELO 

jBSELl 

iSEL2 

»WRITE FIFO DATA OUTPUT BUFFER 



ENOTST 



L10073: 



TRAP 



.SBTTL TEST 10: MANUAL INTERVENTION 



CSETST 



jTHE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 

,THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS ANO FACTIONS OF 

tTHE SUBSYSTEM THAT CANNOT BE MANIPULATED BY (HE PROGRAM ALONE. WHEN 

j THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 

j SUBTESTS ANO THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE, 

{THE ONLY WAYS TO EXIT THIS ROUTINE ANO RETURN TO THE DIAGNOSTIC SUPERVISOR 

jARE BY TYPING <CTRL-C> OR SELECTING CODE 7. 

, SELECTION COOES AND SUBROUTINES ARE: 



CODE ROUTINE 

HELP. PRINTS THIS MENU, 

1 TURN ON ALL M7196 LED INOICATORS 

2 TURN Or _ F ALL M7196 LED INOICATORS 

3 OFFLINE/ONLINE ATTENTION TEST 

4 WRITE-PROTECT TEST 

5 INITIATE TRANSPORT SERVO EXERCISER 

6 PRINT EXTENOED TRANSPORT STATUS 

7 EXIT (RETURN TO SUPERVISOR) 



jEACH MENm ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS; 



Kl 



TSV5 - ARDWARE 
TEST 10: MANUAL 

5842 

5843 

5844 

5845 

58 o 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5866 

5867 

5869 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 

587/ 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 

5887 

5868 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 



TESTS MACRO 
INTERVENTION 



M1113 06-FEB-84 17il4 



SEQ 217 



PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 



CAUSES ALL THREE LED INDICATORS ON THE M7196 MOOULE 
v BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE 0PERA10R 
SHCJLD OBSERVE THE LED* S ANO VERIFY THAT THEY ARE INDEED ALL LIT, 
THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
SET THE FORCE WRONG PARITY FLIP-FLOP. WHICH SERVES TO DRIVE THE 
'•PROCESSOR NOT OK" LED. THEN IT ENTERS A LOOP THAT CONTINUALLY 
WRITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER TWO 
OPERATIONS WILL CAUSE THE "NOT SSR" AND "DRIVING BUS" LED'S TO 
GLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHUULD APPEAR 
REASONABLY VISIBLE. 

INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
EXTINGUISH. 



THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 
WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS, 
ISSUES A MESSAGE BUFFER RELEASE COMMANO. PRINTS A MESSAGE ON THE 
CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
SWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 
EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR 
VICE-VERSA. AN ATTENTION INTERRUPT SHOULD BE GFNERATED. THE PROGRAM 
giLL REPORT THE INTERRUPT AND THE CURRENT STATt OF THE TRANSPORT. 
.'HE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
STATE INDICATED BY THE LED ON *HE r RONT PANEL OF THE TRANSPORT. 
IN ADDITION, WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM 
ISSUES A SEQUENCE OF TAPE -MOTION COMMANOS (REAO, WRITE, POSITION. ETC 
ANO VERIFIES THAT, FOR EACH COMMANO. FUNCTION REJECT TERMINATION 
RESULTS, ALONG WITH THE NON-EXECUTABLE FUNCTION CNEF) ERROR BIT BEING 
SET. 

THIS ROUTINE INSTRUCTS THE OPERATOR TO MOL*NT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE -ENABLE RING INSTALLEO, THEN 
WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RESPONSE, fHE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE -PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 
TAPE ANO EXPECTS THE APPROPRIATE ERROR TERMINATION IN07.CATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED. 
AN ERROR IS REPORTED. 



INSTRUCTS THE OPERATOR TO PLACE fHE TAPE TRANSPORT(S) 
ON LINE (IF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED 
STATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE, 
THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE 
TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
SUCH IS ISSUED. 



TSV5 - HARL^ARE TESTS MAfRO M1113 
TEST 10: MANUAL INTERVENTION 



06-FEB-84 17:14 



LI 



SEQ 218 



5899 






J 






5900 












5901 












5902 












5903 066666 








BGNTST 




066666 












5908 066666 








RFLAGS 


RO 


066666 


104421 










5909 066670 


001403 






BEQ 


21$ 


5910 066672 


012700 


072250 




MOV 


4T38NE.R0 


5911 066676 


000402 






BR 


3$ 


5912 066700 






21$: 






5913 066700 


012700 


073365 




MOV 


4T38ID.R0 


5914 066704 


004737 


016510 


3$: 


JSR 


PC.TSTSETUP 


5915 066710 


004737 


020500 




JSR 


PCCHKMAN 


5916 066714 


103402 






BCS 


22$ 


5917 066716 


000137 


071450 




JMP 


64$ 


5918 066722 






22$: 






5922 066722 


005037 


002222 


2$: 


CLR 


FATFLG 


5923 066726 


012737 


176750 071462 


MOV 


465000, . T38DLY 


59^4 066734 


004737 


015774 


5$: 


JSR 


PC.SOFINIT 


5925 066740 


103427 






BCS 


23$ 


5926 066742 


010001 






MOV 


R0.R1 


5927 066744 


032701 


000200 




BIT 


4SSR,R1 


5928 066750 


001023 






BNE 


23$ 


5929 066752 








DELAY 


250 


066752 


012727 


000250 








066756 


000000 










066V00 


013727 


002116 








066764 


000000 










066766 


005367 


1777 7 2 








0667 72 


001375 










066774 


005367 


177756 








06."- ) 


001367 










5930 067002 


005337 


071462 




DEC 


T38DLY 


5931 067006 


001352 






BNtl 


5$ 


5932 067010 








ERRDF 


ERRNO.SFIERR.S 


067010 


104455 










067012 


001751 










067014 


003652 










067016 


012034 










5933 067020 


012700 


073412 


23$: 


MOV 


dMIMENU.RO 


5934 067024 


012701 


000006 




MOV 


46, Rl 


5935 067030 


004737 


020256 




JSR 


PC.GETSEL 


5936 067034 


010004 






MOV 


R0.R4 


5937 06^36 


006304 






ASL 


R4 


5938 067040 


000174 


067044 




JMP 


»6«(R4) 


5939 067044 


066722 




6$: 


.WORD 


2$ 


5940 067046 


067062 






.WORD 


10$ 


5941 067050 


067344 






.WORD 


15$ 


5942 067052 


067576 






.WORD 


20$ 


5943 06 7054 


070232 






.WORD 


25$ 


5944 067056 


071166 






.WORD 


35$ 


5945 067060 


071444 






.WORD 


63$ 


5946 067062 






10$: 


PRINTF 


4T38M52 


067062 


012746 


073261 








067066 


012746 


000001 









TIO: : 
iGET OPERATOR FLACt 

TRAP C$RFLA 
j BR, IF OK TO RUN 
j "TEST NOT EXECUTED" 
j JUMP IF NOT FIRST TEST 

j TEST ID MESSAGE 

jDO THE COMMON SETUP 

iIS MANUAL INTERVENTION ALLOWED? 

j BR. IF MANUAL INTER ALLOWED 

i JUMP IF NOT ALLOWED 

; CLEAR THE FATAL ERROR FLAG 

{SET UP DELAY COUNTER 

i 00 A SOFT INIT 

» BRANCH IF OK 

j CONTENTS OF TSSR REGISTER 

j CHECK FOR TSSR SET 

{KEEP GOING IF NOT SET 

{CALL DELAY ROUTINE 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
;BUMP COUNTER DOWN 
jBR. IF MORE TIME LEFT 
;REPORT FATAL ERROR 

TRAP 
.UORD 
.WORD 
.WORD 
MENU OF MANUAL INTERVENTIONS 
MAXIMUM ALLOWED SELECTION 
GO GET THE OPERATORS SELECTION 
GET NUMBER FROM ROUTINE 
CONVERT TO WORD OFFSET 
JUMP TO PROPER LOOP 
RETYPE THE MENU 

1 TURN ON LED'S 

2 TURN OFF LEO'S 

3 ONLINE ATTENTION 

4 WRITE PROTECT 

5 EXTENDED TRANSPORT STATUS 

6 LEAVE THE TEST 
TELL OPERATOR TO CNTRL-C FOR EXIT 

MOV 0T38MS2,-(SP) 
MOV *1.-(SP) 



4250, (PC)* 



L$DLY,(PC)t 



-6(PC) 

.-4 

-22CPC) 

.-20 



C$ERDF 

1001 

SFIERR 

SFIMSG 



Ml 



TSV5 HARDWARE TESTS MACRO Mil IS 
TEST 10 j MANUAL INTERVENTION 



06-FEB -84 1/;14 



SEQ 219 



067072 


010600 




067074 


104417 




067076 


062706 


000004 


5947 067102 


004737 


074016 


5948 067106 


004737 


015774 


5949 067112 


103405 




5953 067114 


010001 




5954 067116 






067116 


104455 




067120 


001752 




067122 


003652 




067124 


012034 




5955 067126 


013737 


002202 072210 


5956 






5957 067134 


012704 


072170 


5958 067140 


004737 


010662 


5959 067144 


103405 




5963 067146 


010001 




5964 067150 






067150 


104456 




067152 


001753 




067154 


005056 




067156 


012034 




5965 067160 






5966 067160 


112737 


000000 071501 


5967 067166 


112737 


000011 071500 


5968 067174 


012704 


071470 


5969 






5970 






5971 






5972 067200 


010465 


000000 


5973 067204 


004737 


016336 


5974 067210 


103405 




5^75 067212 


010001 




5979 067214 






067214 


104455 




067216 


001754 




067220 


072666 




06 Y 222 


012046 




5980 067224 






067224 


104406 




5981 067226 






067226 


012700 


000340 


067232 


104441 




5982 067234 


005037 


071454 


5983 067240 


032737 


000100 177560 


5934 067246 


001C05 




5985 0C?50 


005237 


071454 


5986 06/254 


052737 


000100 177560 


5987 067262 


0127C1 


000060 


5988 067266 


011137 


071456 


5989 C67272 


012721 


70750 


5990 067276 


011137 


071460 


5991 067302 


012711 


000340 


5992 067306 






067306 


012700 


000000 


067312 


104441 





100$; 







MOV 


SP.RO 






TRAP 


C$PNTF 






ADO 


04, SP 


JSR 


PC.T38REST 


{SET PACKET TO INITIAL VALUES 




JSR 


PC.SOFINIT 


j DO SOFT INIT OF CONTROLLER 




BCS 


100$ 


} BR IF SOFT INIT - OK 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO.SFIERR, SFIMSG 


{DEVICE FATAL ERROR DURING INI! 








TRAP 


C$ERDF 






.WORD 


1002 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T38DSW 


j SET UNIT NUMBER 





MOV 
JSR 
BCS 
MOV 
ERRHRD 



4T38PK2.R4 

PC.WRTCHR 

110$ 

R0.R1 

ERRNQ.WRTMSG, SFIMSG 



, SUBROUTINE NEEDS PACKET ADDRESS 
} ISSUE URITE CHARACTERISTICS 
j BR. II COMMAND ISSUED OK 
j SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC FAILFD 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
1003 
WRTMSG 
SFIMSG 



110$: 



MOVB 
MOVB 
MOV 



*0,T38BS1 

*1I,T38BS0 

0T38PACKET.R4 



I CLEW BIT 04 

lURJ E MISC COMMANO 

;SET UP NEW WRT . SUBbYS MEM. 



COMMAND 



j NOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 



MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

BCS 150$ 

MOV R0.R1 

ERRDF ERRNO , T38SSR , P>< TSSR 



; SET THE PACKET ADDRESS 
i WAIT FOR SSR TO SET 
,BR IF CARRY SET CGOOO RETURN) 
j SAVE CONTENTS OF TSSR 
I DEVICE FATAL SSR FAILED TO SET 

TRAP 



150$ 



701$: 



CKLOOP 




SETPRI 


0PRI07 


CLR 


TTI0N2 


BIT 


*1OO»B0TTICSR 


BNE 


701$ 


INC 


TTI0N2 


BIS 


OIOO.SOTTICSR 


MOV 


0TTIVEC.R1 


MOV 


(R1),TVSAV2 


MOV 


»5<*05,(R1)« 


MOV 


CRD.TPSAV2 


MOV 


*PRI07 # (Rn 


SETPRI 


GPRIOO 



j LOOP ON ERROR, IF FLAG 
;RAISE THE PRIORITY 



.WORD 

.WORD 

.WORD 

SET 

TRAP 



MOV 

TRAP 
ENABLED 
? 



C$ERDF 
1004 
T38SSR 
PKTSSR 

C$CLP1 

*PRI07 t R0 
C$SPRI 



; ASSUME INTERRUPTS ARE 

,ARE TTI INTERRUPTS ON 

jBRANCH IF YES 

5 FLAG SET IF INTERRUPTS OFF 

i ENABLE INTERRUPTS 

, START OF TTI VECTORS 

iSAVE THE CURRENT TTI VECTOR 

i SET NEW INTERRUPT ROUTINE 

j SAVE THE VECTOR PRIORITY 

j USE PRIORITY SEVEN 

; LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 



OPRIOO.RO 
C$SPRI 



Nl 



ibV5 - HARDWr <E 
TEST 10: MANUAL 



3993 
5994 

5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 



6003 
6004 
6008 
6009 



6010 
6015 
6012 
6013 
6014 
6018 
6019 



6020 
6021 
6022 
602i 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6036 



6037 
6058 



067314 
067320 
067322 
067326 
067332 
067336 
067340 
067342 

067344 

067344 

ns/350 

067314 

06735b 

067360 

06/364 

0S7370 

067372 

067374 

067374 

067376 

067400 

067402 

067404 

057404 

067412 

067416 

067422 

067424 

067426 

067426 

067430 

067432 

06V434 



067436 
067436 
067444 
067452 
067456 
067462 
06/466 
OG7470 
067472 
0674 72 
067474 
067476 
067500 
06/502 
067502 
067504 
067504 
067510 



TESTS MACRO Mil 13 
INTERVENTION 



012701 
00C240 
012702 
110165 
016500 
005302 
001372 
000766 



012746 
012746 
010600 
104417 
062706 
004737 
103405 
010001 

104455 
001755 
003652 
012034 

013737 
012704 
004737 
103405 
010001 

104456 
001756 
005056 
012034 



112737 
112737 
012704 
010465 
004737 
103405 
010001 

104455 
001757 
072666 
012046 

104406 

012700 
104441 



177777 

001750 
000000 
000002 



06- c EB-84 


17:14 






MOV 


#-l,Rl 


12$: 


NOP 






MOV 


01000., R2 


14$: 


MOVB 


R1.TSDBCR5) 




MOV 


TSSR(R5),R0 




DEC 


R2 




BNE 


14$ 




BR 


12$ 


15$: 


PRINTF 


0T38MS2 



073261 
000001 



000004 
015774 



JSR 
BCS 
MOV 
ERRDF 



PC.SOFINIT 

20J$ 

RO.Rl 

ERRNO # SFIERR t SFIMSG 



SEQ 220 



jDATA TO WRITE TO TSDB 

I ALLOW OPERATOR TO TYPE tC 

j SET -UP INNER LOOP 

i WRITE DATA TO TSDB 

jREAD TSSR 

i REDUCE INNER COUNT 

lLOOP TILL EXPIRES 

l LOOP UNTIL HALTED 

;TYPE CNTL C TO EXIT 

MOV 
MOV 
MOV 
TRAP 
ADO 
CONTROLLER 
• OK 

j SAVE CONTENTS OF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



i DO 
j BR 



SOFT INIT OF 
IF SOFT INIT 



4T38MS2. -CSP) 

41,-CSP) 

SP.RO 

C$PNTF 
04. SP 



C$ERDF 

1005 

SFIERR 

SFIMSG 



002202 
072170 
010662 



072210 



2uO$ 



MOV 
MOV 
JSR 
BCS 
MOV 
ERRHRD 



UNITN.T38DSW 

OT38PK2.R4 

PC.WRTCHR 

210$ 

R0.R1 

ERRNO.WRTMSG, SFIMSG 



tSET UNIT NUMBER 

j SUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

:BR. IF COMMANO ISSUED OK 

jSAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC 



FAILED 




TRAP 


C$ERHRD 


.WORD 


10O6 


.WORD 


URTMSG 


.WORD 


SFIMSG 



THIS WRITE SUB -SYSTEM ME MOW* CC**1AND JUST HOLDS THE lEDS Off 



000000 
000025 
071470 
000000 
016336 



071501 
07)500 



210$: 



MOVB 


♦0.T398SI 


MOVB 


*25,T388S0 


MOV 


#T38PACKET,R4 


MOV 


R4,TSD6(R5) 


JSR 


PC.CHKTSSR 


BCS 


2501 


MOV 


R0.R1 


ERRDF 


ERkN0,T38SSft.PKT5SR 



250*: 



000340 



CK LOOP 

tiEIPRI 4PR10? 



CLEAK BIT #4 

STOP DRIVE TEST 22 

SET UP NEU WRT SUBStS MEM. COMHANO 

SET THE PACKET AOOAESS 

WAIT FOR SSR TO SET 

BR IF CAAPt SET (GOOD RE K«N i 

SAVE CONSENTS Of T SS« 

DEVICE FATAL SSR FAILED TQ Sf. T 



i jiop y* 



R*ISfr" Tnfc 





TRAP 


CURD* 




.wO«C 


100* 




.*0»0 


»5*j:>R 




.wORO 


p- * ? '»n 


Rjft. :* * 


^A4» Sf* 






T«4P 


:*:. *: 


prior: t • 








HO. 


*p*<;-. ■ 




'RAP 


C * >*'* 1 



B2 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 10: MANUAL INTERVENTION 



06-FEB-64 17:14 



6039 067512 


005037 


071454 




CLR 


TTI0N2 


6040 067516 


032737 


000100 177560 




BIT 


0100.80TTICSR 


6041 067524 


001005 






BNE 


710$ 


604? 067526 


005237 


071454 




INC 


TTI0N2 


6043 067532 


052737 


000100 177560 




BIS 


♦ 100.WTTICSR 


6044 067540 


012701 


000060 


710$: 


MOV 


♦TTIVEC.R1 


6045 067544 


011137 


C71456 




MOV 


(RD.TVSAV2 


6046 067550 


012721 


070750 




MOV 


♦590$, CR1)* 


6047 067554 


011137 


071460 




MOV 


(RD.TPSAV2 


6048 067560 


012711 


000340 




MOV 


*PRI07,(R1) 


6049 067564 








SETPRI 


OPRIOO 


067564 


012700 


000000 








067570 


104441 










6050 067572 


000240 




260$: 


NOP 




6051 067574 


000776 






BR 


260$ 


6052 












6053 












6054 067576 






20$: 


PRINTF 


0T36MS2 


067576 


012746 


073261 








067602 


012746 


000001 








067606 


010600 










067610 


104417 










067612 


062706 


000004 








6055 067616 








SETPRI 


*PRIOO 


067616 


012700 


000000 








067622 


104441 










6056 067624 


005037 


002224 




CLR 


INTRECV 


6057 067630 


004737 


015774 




JSR 


PC.SOFINIT 


6058 067634 


103405 






BCS 


300$ 


6062 067636 


010001 






MOV 


R0.R1 


6063 067640 








ERRDF 


ERRNO.SFIERR. SFIMSG 


067640 


104455 










067642 


001760 










067644 


003652 










067646 


012034 










6064 067650 






300$: 






6065 0C7650 


013737 


002202 072210 




MOV 


UNITN.T38DSW 


6066 067656 


012737 


000040 072206 




MOV 


♦BIT5.T38EAI 


6067 067664 


012704 


072170 




MOV 


0T38PK2.R4 


6068 067670 


004737 


010662 




JSR 


PC.WRTCHR 


6069 067674 


103405 






BCS 


310$ 


6073 067676 


010001 






MOV 


R0.R1 


6074 067700 








ERRHRD 


ERRNO.WRTMSG, SFIMSG 


067700 


104456 










067702 


001761 










067704 


005056 










067706 


012034 










6075 067710 






310$: 






6076 067710 


012704 


072220 




MOV 


0T38PK3.R4 


6077 067714 


010455 


OOOOCO 




MOV 


R4.TS0BCR5) 


6078 067720 


00473? 


016250 




JSR 


PC.WAITF 


6079 067724 


005002 






CLR 


R2 


6080 067726 


016501 


000002 




MOV 


TSSR(R5).R1 


6081 067732 


032701 


000100 




BIT 


♦0FL.R1 


6082 067736 


001402 






BEQ 


320$ 


6083 067740 


052702 


000100 




BIS 


O0FL.N2 


6084 067744 


052702 


000200 


320$; 


BIS 


*SSR,R2 



SEQ 221 



i ASSUME INTERRUPTS ARE ENABLED 
i ARE TTI INTERRUPTS ON ? 
iBRANCH IF YES 
»FLAG SET IF INTERRUPTS OFF 
i ENABLE INTERRUPTS 
l START OF TTI VECTORS 
I SAVE THE CURRENT TTI VECTOR 
I SET NEW INTERRUPT ROUTINE 
I SAVE THE VECTOR PRIORITY 
i USE PRIORITY SEVEN 
tLOWER INTERRUPT BR LEVEL 

M 



l ALLOW CNTL C 
lLOOP UNTIL STOPPED 

I TELL' EM WHAT TO TYPE 



MOV 
TRAP 



♦PRIOO.RO 
C$SPRI 



MOV 

MOV 

MOV 

TRAP 

ADO 



iLOWER PRIORITY JO ALLOW INTERRUPTS 



*T38MS2,-(SP) 
•l.-(SP) 

SP.RO 

C$PNTF 
04. SP 



MOV 
TRAP 
RECEIVED FLAG 
CONTROLLER 
OK 



I CLEAR INTERRUPT 

iDO SOFT INIT OF 

I BR IF SOFT INIT 

I SAVE CONTENTS OF TSSR 

l DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



OPRIOO.RO 

C$SPRI 



C$ERDF 
1008 
SFIERR 
SFIMSG 



» SET UNIT NUMBER IN PACKET 

lENABLE ATTENTION INTERRUPTS 

j SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

i BR, IF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 

.WORD 1009 
.IKDRD WRTMSG 
.WORD SFIMSG 

iSET UP NEW PACKET FOR HESS BUF REL 

I MESSAGE BUFFER RELEASE. ACK.CVCU GMQ 

i WAIT FOR SSR TO SET 

iMAKE SURE ALL IS CLEAR 

iGET TSSR STATUS 

lIS OFL SET 

iBR, IF OFL IS NOT SET 

I SET OFL IN EXPECTED 

jSET UP EXPECTED 



C2 



Jt v s? ioV^BWDSE M^WSi Mlu5 06 - FEB - 8 * l7!l4 



6085 067750 


020201 




6086 067752 


001404 




6090 067754 






067754 


104456 




06775t 


001762 




067760 


073076 




067762 


012046 




60S1 067764 






067764 


104406 




6092 067766 






067766 


012746 


075166 


067772 


012746 


000001 


067776 


010600 




070000 


104417 




070002 


062706 


000004 


6093 070006 






070006 


012746 


075261 


070012 


012746 


000001 


070016 


010600 




070020 


104417 




070022 


062706 


000004 


6094 070026 






070026 


012700 


000540 


070052 


104441 




6095 070054 


005037 


071454 


6096 070040 


052737 


000100 177560 


6097 070046 


001005 




6098 070050 


005257 


071454 


6099 070054 


052737 


000100 177560 


6100 070062 


012701 


000060 


6101 070066 


011137 


071456 


6102 070072 


012721 


070750 


6105 070076 


011137 


071460 


6104 070102 


012711 


000540 


6105 070106 






070106 


012700 


000000 


070112 


104441 




6106 070114 


000240 




6107 070116 


005757 


002224 


6108 070122 


001001 




6109 070124 


000775 




6110 070126 






070126 


012746 


072756 


070152 


012746 


000001 


070156 


010600 




070140 


104417 




070142 


062706 


000004 


6111 070146 


016501 


000002 


6112 070152 


032701 


000100 


6115 070156 


001011 




6114 070160 






070160 


012746 


075006 


070164 


012746 


000001 


070170 


010600 




070172 


104417 




070174 


062706 


000004 


6115 070200 


000410 





350$} 



CMP R2.R1 

BEQ 3501 

ERRHRD ERRNO , T38SST , PKTSSR 



CKLOOP 

PRINTF 0T38MS1 



PRINTF 0T38MS2 



SETPRI 0PRI07 



720$: 



3601} 



370$; 



CLR 


TTI0N2 


BIT 


0100.BOTTICSR 


BNE 


7201 


INC 


TTI0N2 


BIS 


♦100.80TTICSR 


MOV 


♦TTIVEC.RI 


;iov 


(RD.TVSAV2 


MOV 


05901. CRD* 


ii^V 


(PD.TPSAV2 


MOV 


♦PRI07.CR1) 


SETPRI 


OPRIOO 


NOP 




TST 


INYRECV 


BNE 


37»l 


BR 


5601 


PRINTr 


0T38INT 



MOV TSSRCR5),R1 

BIT 00FL.R1 

BNE 580$ 

PRINTF 0T38ONL 



SEQ 222 






j IS EVERYTHING OK 






iBR, IF ALL IS WFLL 






jDEVICE FATAL SSR FAILED TO SET 






TRAP 


CIERHRD 




.WORD 


1010 




.WORD 


T38SST 




.WORD 


PKTSSR 


jLOOP ON ERROR, IF FLAG SET 






TRAP 


C$CLP1 


jTELL OPERATOR TO TOGGLE SWITCH 






MOV 


0T38MS1,-(SP) 




MOV 


♦l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADO 


04. SP 


i TELL OPERATOR TO 00 


tC TO EXIT 






MOV 


OT38MS2,-(SP) 




MOV 


#1, -(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


04.SP 


iRAISE THE PRIORITY 








MOV 


OPRI07.RO 




TRAP 


CSSPRI 



BR 



390$ 



i ASSUME INTERRUPTS ARE ENABLED 

lARE TTI INTERRUPTS ON ? 

iBRANCH IF YES 

jFLAG SET IF INTERRUPTS OFF 

i ENABLE INTERRUPTS 

iSTART OF TTI VECTORS 

l SAVE THE CURRENT TTI VECTOR 

i SET NEW INTERRUPT ROUTINE 

j SAVE THE VECTOR PRIORITY 

lUSE PRIORITY SEVEN 

iLOWER INTERRUPT BR LEVEL 

MOV OPRIOO.RO 
TRAP C$SPRI 

i ALLOW CONTROL C 

iDID AN INTERRUPT OCCUR ? 

iBRANCH IF YES 

iWAIT SOME MORE FOR INTERRUPT 

I "INTERRUPT RECEIVED" 

NOV 

MOV 

MOV 

TRAP 

ADD 

iREAD TSSR STATUS 

iCHECK THE OFF-LINE BIT 

jBR, IF DRIVE IS OFF-LINE 

i 'DRIVE IS NOW ON-LINE" 

MOV OT58CNL. 

MOV 01, -(SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD 04,$P 

lALMO'JT DONE 



OT58INT,-(SP) 
01, .(SP) 

sp.ho 

CSPNYF 
04. SP 



(SP) 



D2 



m 



* ioTmmt m^mp Mm5 oe 


6116 070202 






070202 


012746 


073042 


070206 


012746 


000001 


070212 


010600 




070214 


104417 




070216 


062706 


000004 


6117 070222 


005037 


002224 


6118 070226 


000137 


067650 


6119 070232 






070232 


104443 




070234 


000404 




070236 


074014 




070240 


000120 




070242 


073325 




070244 


177777 




070246 






6120 070246 






070246 


103371 




6121 070250 


005737 


074014 


6122 070254 


001002 




6123 070256 


000137 


066722 


6124 070262 






6125 070262 


004737 


015774 


6126 070266 


103405 




6130 070270 


010001 




6131 070272 






070272 


104455 




070274 


001763 




070276 


003652 




070300 


012034 




6132 070302 






070302 


104406 




6133 070304 


013737 


002202 072210 


6134 070312 


012704 


072170 


6135 070316 


004737 


010662 


6136 070322 


103405 




6140 070324 


010001 




6141 070326 






070326 


104456 




070330 


001764 




070332 


005056 




070334 


012034 




6142 070336 






070336 


104406 




6143 070340 


013701 


071514 


6144 070344 


010102 




6145 070346 


052702 


000004 


6146 070352 


020102 




6147 070354 


001406 




6151 070356 






070356 


104456 




070360 


001765 




0703,62 


072504 




070?i64 


015474 




6152 070366 


005237 


002222 


6153 070372 






070372 


104406 





06-FEB-84 17;14 



380*} PRINTF 0T38OFL 



390 $ i 
25$; 



CLR INTRECV 

JMP 300$ 

GMANIL T38MSG, T38DAT,, -1 ,N0 



27$; 



BNCOMPLETE 251 

TST T380AT 
BNE 27$ 
JMP 2$ 



JSR 
BC5 

MOV 
ERRDF 



400$; CKLOOP 



PC.SOFINIT 

400$ 

R0.R1 

ERRNO.SFIERR. SFIMSG 



MOV 


UNITN.T38DSW 


MOV 


♦T38PK2.R4 


JSR 


PC.WRTCHR 


BCS 


410$ 


MOV 


RG.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



410$; CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
ERRHRD 



430$; 



INC 

CKLOOP 



T38BFR»6,R1 

R1.R2 

*BIT2,R2 

R1.R2 

430$ 

ERRN0.T38WRL.EXPREC 



FATKLG 



SEQ 223 

j "DRIVE IS NOW OFF-LINE" 

MOV 

MOV 

MOV 

TRAP 

ADD 

jCLEAR INTERRUPT FLAG 

i try AGAIN 

lUAIT FOR OPERATOR TO MOUNT TAPE 

TRAP 
BR 

.WORD 
.WORD 
.WORD 
.WORD 



jRETRY IF ERROR 



10000$ 



OT380FL.-CSP) 
»1,-(SP) 

SP.RO 
C$PNTF 

04, SP 



C$GMAN 
10000$ 
T38DAT 
T$C00E 
T38M C .G 
-1 



lOID OPERATOR SAY 'YES 

I BRANCH IF YES 

, RETURN TO MAIN MENU 



BCC 



25$ 



lOO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

iSAVE CONTENTS OF TSSR 

jDEVICE FATAL ERROR DICING INIT 

TRAP C$ER0F 
.UORD 1011 
.WORD SFIERR 
.WORD SFIMSG 

jLOOP IF SELECTED 

TRAP C$CLP1 

t SET INIT NUMBER 

I SUBROUTINE NEEDS PACKET ADORESS 

jlSSUfi WRITE CHARACTERISTICS 

l BR. CF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



.LOOP IF SELECTED 



TRAP 



,PICK UR XSTO CONTENTS 
»SET UP EXPECTED 
iSET UP THE WRITE LOCKED BIT 
j ARE THEY CORRECT 
iBR. IF ALL IS WELL (OK) 
i "WRITE LOCKED BIT IS NQT SET 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
1012 
WRTMSG 
SFIMSG 

C$CLP1 



j SET FATAL FLAG 
jLOOP IF SELECTED 



TRAP 



ETC." 
CtERHRD 
1013 
T38WRL 
EXPREC 



CJCLPL 



E2 



TSV5 HARDWARE 


TESTS 


MACRO M 


TEST 10: MANUAL 


INTERVENTION 


6154 070374 


005737 


002222 


6155 070400 


001402 




6156 070402 


000137 


066722 


6157 070406 


017737 


112512 


6158 070414 


012704 


072240 


6159 070420 


010465 


000000 


6160 070424 


004737 


016250 


6161 070430 


016501 


000002 


6162 070434 


012702 


100206 


6163 070440 


020102 




6164 070442 


001404 




6166 070444 






070444 


104456 




070446 


001766 




070450 


072420 




070452 


012046 




6169 070454 






070454 


104406 




6170 070456 


013701 


071514 


6171 070462 


010102 




6172 070464 


052702 


004000 


6173 070470 


020102 




6174 070472 


001404 




6178 070474 






070474 


104456 




070476 


001767 




070500 


072545 




070502 


015474 




6179 070504 






070504 


104406 




6180 070506 


000137 


066722 


6181 






6182 






6183 






6184 






6185 070512 






6186 070512 






070512 


012746 


072325 


070516 


012746 


000001 


070522 


010600 




070524 


104414 




070526 


062706 


000004 


6187 070532 


004737 


074016 


6188 070536 


004737 


015774 


6189 070542 


103405 




6193 070544 


010001 




6194 070546 






070546 


104455 




070550 


001770 




070552 


003652 




070554 


012034 




6195 070556 


013737 


002202 


6196 070564 


012704 


072170 


6197 070570 


004737 


010662 


6198 070574 


103405 




6202 070576 


010001 




6203 070600 







M1113 



06-FEB-84 


17:14 






SEQ 224 




TST 


FATFLG 




|WAS THE DRIVE NOT WRITE LOCKED 




BEQ 


435* 




|BR, IK FLAG NOT SET 




JMP 


2$ 




> RE -WRITE MENU 


2 435*5 


MOV 


QFREE.T38WR 




,SET UP WRITE BUFFER ADDRESS 




MOV 


M38PK4.R4 




iGET PACKET ADDRESS 




MOV 


R4.TSDB(R5) 




»SET THE PACKET ADDRESS 




JSR 


PC.WAITF 




jWAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 




»GET TSSR 




MOV 


♦SC!SSR!BIT1! 


•BIT2.R2 


iSET UP EXPECTED 




CMP 


R1.R2 




»ARE THEY EQUAL (CORRECT) 




BEQ 


440$ 




iBR, IF CORRECT STATUS 




ERRHRD 


ERRN0.T38WRT, 


.PKTSSR 


l"TSSR INCORRECT AFTER WRITE COMMANO 

TRAP C$ERHRD 
.WORD 1014 
.WORD T38WRT 
.WORD PKTSSR 


440$: 


CKLOOP 






j LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 




MOV 


T38BFRf6,Rl 




j READ XSTO CONTENTS 




MOV 


R1.R2 




iSET UPR EXPECTED 




BIS 


0BIT11.R2 




,SET THE WRITE LOCK ERROR BIT (XSTO) 




CMP 


R1.R2 




jWAS THE BIT SET 




BEQ 


450$ 




iBR. IF IT WAS (GOOD) 




ERRHRD 


ERRN0.T38WLE 


,EXP*EC 


j "WRITE LOCK ERROR BIT NOT SET" 

TRAP C$ERHRD 
.WORD 1015 
.WORD T38WLE 
.WORD EXPREC 



450$: 



CKLOOP 
JMP 2$ 



,LOOP IF SELECTED 
j GO BACK TO MENU 



TRAP 



C$CLP1 



j ******************************* k********************************** 
, SERVO EXERCISER NO LONGER USED 

30$: 

0T38MS3 



PRINTB 



TO STOP 
*T38MS3,-(SPJ 
♦1,-CSP) 
SP.RO 
C$PNTB 
04. SP 



JSR 


PC.T38REST 


JSR 


PC.SOFINIT 


BCS 


500$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



072210 500$ 



MOV UNITN.T38DSW 

MOV 0T38PK2.R4 

JSR PC.WRTCHR 

BCS 510$ 

MOV R0.R1 

ERRHRD ERRNO , WR TMSG , CF IMSG 



j "EXE ANY OTHER MENU SELECTION 

MOV 
MOV 
MOV 
TRAP 
ADD 

I SET PACKET TO INITIAL VALUES 

I DO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT ■ OK 

»SAVE CONTENTS OF TSSR 

t DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 1016 
.WORD SFIERR 
.WORD SFIMSG 

I SET UNIT NUMBER 

i SUBROUTINE NEEDS PACKET ADORESS 

i ISSUE WRITE CHARACTERISTICS 

i BR. IF COMMANO ISSUED OK 

I SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTIC FAILED 



F 



2 



TSV5 - HARDWARE 


TESTS 


MACRO M1113 06 


TEST 10: MANUAL 


INTERVENTION 




070600 


104456 






070602 


001771 






070604 


005056 






070606 


012034 






6204 070610 








6205 070610 


112737 


000000 


071501 


62C6 070616 


112737 


000020 


071500 


6207 07C524 


012704 


071470 




6208 070630 


010465 


000000 




6209 070634 


004737 


016336 




6210 070640 


103405 






6211 070642 


010001 






6215 070644 








070644 


104455 






070646 


001772 






070650 


072666 






070652 


012046 






6216 070654 








070654 


104406 






6217 070656 








070656 


012700 


000340 




070662 


104441 






62 IS 070664 


005037 


071454 




6219 070670 


032737 


000100 


177560 


6220 070676 


001005 






6221 070700 


005237 


071454 




6222 070704 


052737 


0OO100 


177560 


6223 070712 


012701 


000060 




6224 070716 


011137 


071456 




6225 070722 


012721 


070750 




6226 070726 


011137 


071460 




6227 070732 


012711 


000340 




6228 070736 








070736 


012700 


000000 




070742 


104441 






6229 070744 


000240 






6230 070746 


000776 






6231 








6232 








6233 








6234 








6235 070750 


010046 






6236 070752 


113700 


177562 




6237 070756 


042700 


000200 




6238 070762 


122700 


000015 




6239 070766 


001075 






6240 070770 


012766 


066722 


000002 


6241 070776 


005066 


000004 




6242 071002 


013737 


071456 


000060 


6243 071010 


013737 


071460 


000062 


6244 071016 


112737 


000025 


071500 


6245 071024 


112737 


000000 


071501 


6246 071032 


012704 


071470 




6247 071036 


010465 


000000 




6248 071042 


012737 


176750 


071462 


6249 071050 


004 73- 


016250 




6250 071054 


016501 


000002 





06 -FEB -84 17; 14 



SEQ 225 



510$: 



550$: 



555$: 







TRAP 


C$ERHRD 






.WORD 


1017 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


MOVB 


OO.T38BS1 


I CLEAR BIT 04 




MOVB 


020.T38BS0 


lEXECUTE DRIVE TEST 22 




MOV 


4T38PACKET.R4 


tSET UP NEW WRT, SUBSYS MEM. COMMAND 


MOV 


R4.TSDBCR5) 


tSET THE PACKET ADDRESS 




JSR 


PC.CHKTSSR 


,WAIT FOR SSR TO SET 




BCS 


550$ 


»BR IF CARRY SET (GOOD RETURN) 




MOV 


RO.Rl 


j SAVE CONTENTS OF TSSR 




ERRDF 


ERRN0.T38SSR.PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 








TRAP 


C$ERDF 






.WORD 


1018 






.WORD 


T38SSR 






.WORD 


PKTSSR 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


SETPRX 


0PRI07 


iRAISE THE PRIORITY 








MOV 


OPRI07.R0 






TRAP 


C$SPRI 


CLR 


TTI0N2 


I ASSUME INTERRUPTS ARE ENABLES 




BIT 


0100.BOTTICSR 


jARE TTI INTERRUPTS ON ? 




BNE 


555* 


, BRANCH IF YES 




INC 


TTI0N2 


iFL vG SET IF INTERRUPTS OFF 




BIS 


0100.BOTTICSR 


jENAdLE INTERRUPTS 




MOV 


0TTIVEC.R1 


»START OF TTI VECTORS 




MOV 


(RD.TVSAV2 


iSAVE THE CURRENT TTI VECTOR 




MOV 


0590$. (Rl)* 


iSET NEW INTERRUPT ROUTINE 




MOV 


(RD.TPSAV2 


j SAVE THE VECTOR PRIORITY 




MOV 


OPRI07.CR1) 


lUSE PRIORITY SEVEN 




SETPRI 


OPRIOO 


j LOWER INTERRUPT BR LEVEL 








MOV 


*PRIOO,R0 






TRAP 


C$SPRI 


NOP 




jLOOP AWHILE 




BR 


560$ 


;STAY IN "TIGHT" LOOP 





560$: 



{PROCESS CONSOLE INTERRUPTS 



590$; 



592$: 



MOV 


RO.-CSP) 


MOVB 


SOTTIBFR.RO 


BIC 


0200.RC 


CMPB 


015. RO 


BNE 


591$ 


MOV 


02$.2(SP) 


CLR 


4C5P) 


MOV 


TVSAV2.S0TTIVEC 


MOV 


TPSAV2.B0TTIVEC 


MOVB 


025.T38BS0 


MOVB 


OO.T38BS1 


MOV 


0T3BPACKET.R4 


MOV 


R4.TSDBCR5) 


MOV 


065000, .T38DLT 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 



» SAVE WORK REGISTER 
j GET THE OPERATOR INPUT 
jSTRIP OFF PARITY BIT 
j IS IT A CARRIAGE RETURN ? 
lJUST EXIT IF NOT 
jRETURN TO MASTER MENU 
, FORCE PRIORTY 
iRESTORE VECTOR 
♦2 iRESTORE SUPER PRIORTY 
i STOP ORIVE TEST 22 
I CLEAR BS1 

i SET UP NEW WRT. SUBSYS MEM. COMMAND 
»SET THE PACKET ADDRESS 
iSEf UP DELAY COUNTER 
iDO A WAIT FOR SSR 
j CONTENTS OF TSSR REGISTER 



G2 



TSV5 - HARDWARE 
TEST 10 : MANUAL 



6251 
6^52 
6253 



6254 
6255 
6256 
6257 
6258 
6262 



6263 

6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6276 
6277 



6278 

6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6293 
6294 



071060 

071064 

071066 

071066 

071072 

071074 

071100 

071102 

071106 

075110 

071114 

071116 

071122 

0/1124 

071130 

071132 

071134 

071134 

071136 

071140 

071142 

071144 

071144 

071146 

071152 

071154 

071162 

071164 

071166 

071166 

071172 

071176 

071200 

071P02 

071202 

071204 

071206 

071210 

071212 

071212 

071214 

071220 

071224 
071226 
071232 
071234 
071236 
071244 
071250 
071254 
071256 
071260 
071260 
071262 
071264 
071266 



TEST! 
INTE! 



t MACRO 
tVENTION 



M1113 06-FEB-84 17:14 



SEQ 226 



032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
004737 
103405 
010C01 

104455 
001773 
072666 
012046 

104406 
005737 
001403 
042737 
012600 
000002 

0O4737 
004737 
103405 
010001 

104455 
001774 
003652 
012034 

104406 
012701 
012702 

010221 
022701 
0014C1 
000773 
013737 
012704 
004737 
103405 
010001 

104456 

001775 
005056 
012034 



000200 

000250 
002116 
177772 
177756 
071462 
016336 



BIT 0SSR.R1 
BNE 595$ 
DELAY 250 



595$: 



DEC 


T38DLY 


BNE 


592$ 


JSR 


PC.CHKTSSR 


BCS 


580$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T38SSR,PKTSSR 



580$ i CKLOOP 



071454 

000100 177560 



074016 

015774 



591$: 
35$: 



TST 
BEQ 
BIC 
MOV 
RTI 

JSR 
JSR 
BCS 
MOV 
ERRDF 



6001: CKLOOP 



TTI0N2 
591$ 

*ioo,a*TTicsR 
(SP)*.RO 



PC.T38REST 

PC.SOFINIT 

600$ 

R0.R1 

ERRNO,SFIERR, SFIMSG 



071506 
125252 



072162 



002202 072210 

072170 

010662 



601$: 



605$: 



MOV 


*T38BFR g Rl 


MOV 


$125252. R2 


MOV 


R2,(R1)» 


CMP 


*T38EB,R1 


BEQ 


605$ 


BR 


601$ 


MOV 


UNITN.T38DSW 


MOV 


OT38PK£,R4 


JSR 


PC.WR1CHR 


BCS 


610$ 


MOV 


R0,R1 


ERRHRD 


ERRNO,WRTMSG, SFIMSG 



, CHECK FOR TSSR SET 

I KEEP GOING IF NOT SET 

l CALL DELAY ROUTINE 



jBUMP COUNTER DOWN 

»BR, IF MORE TIME LEFT 

iWAIT FOR SSR TO SET 

jBR IF CARRY SET CGOOD RETURN) 

i SAVE CONTENTS OF TSSR 

t DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.UIORD 
.WORD 

j LOOP ON ERROR, IF FLAG SET 

TRAP 

j ARE SUPER INTERRUPTS ENABLED 

iBR, IF YES 

jRESTORE REGISTER 

jRESTORE REGISTER 

1 RE TURN 

I SET PACKET TO INITIAL VALUES 

j DO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

i SAVE CONTENTS OF TSSR 

; DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.UORD 

»LO0P IF SELECTED 

TRAP 

» ADDRESS OF MESSAGE BUFFER 

1 ALTERNATING l'S AND O'S 

i CLEAR OUT THE MESSAGE BUFFER 

»END OF BUFFER YET 

t BR, IF AT END OF BUFFER 

i NOT AT END KEEP GOING 

I SET UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 

TISSUE WRITE CHARACTERISTICS 

l BR, IF COMMAND ISSUED OK 

iSAVE CONTENTS OF TSSR 

i WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 0250, (PC)* 

.WORD 

MOV L$DLY,CPO* 

. WORD 

DEC -6CPC) 

BNE . -4 

DEC -22CPC) 

BNE , -20 



C$ERDF 
1019 
T38SSR 
PKTSSR 

CSCLP1 



C$ERDF 
1020 
SFIERR 
SFIMSG 

C$CLP1 



C$ERHRD 
10? 1 

WRTMSG 
SFIMSG 



H2 



TSV5 - HARDWARE 
TEST 10; MANUAL 


TESTS MACRO M1113 
INTERVENTION 


6295 071270 






071270 


104406 




6296 071272 


112737 


000000 071501 


6297 071300 


112737 


000024 071500 


6290 071306 


012704 


071470 


6299 071312 


010465 


000000 


6300 071316 


0.12737 


000144 071462 


6301 071324 


004737 


016250 


6302 071330 


016501 


000002 


6303 071334 


032701 


000200 


6304 071340 


001017 




6305 071342 






071342 


012727 


000250 


071346 


000000 




071350 


013727 


002116 


071354 


000000 




071356 


005367 


177772 


071362 


001375 




071364 


005367 


177756 


071370 


001367 




6306 071372 


005337 


071462 


6307 071376 


001352 




6308 071400 


004737 


016336 


6309 071404 


103405 




6310 071406 


010001 




6314 071410 






071410 


104455 




071412 


001776 




071414 


072666 




071416 


012046 




6315 071420 






071420 


104406 




6316 071422 


012700 


071526 


6317 071426 


005001 




6318 071430 


005037 


003134 


6319 071434 


004737 


074054 


6320 071440 


000137 


066722 


6321 






6322 






6323 071444 


000137 


000200 


6324 071450 






071450 


104432 




071452 


003054 




6325 






6326 






6327 






6328 






6329 






6330 






6331 






6332 






6333 






6334 






6335 






6336 071454 


000000 




6337 071456 


000000 




6338 071460 


000000 





06-FEB-84 17:14 



610$: CKLOOP 



620$: 



MOVB 


OO.T38BS1 


MOVB 


O24,T38BS0 


MOV 


0T38PACKET.R4 


MOV 


R4.TSDBCR5) 


MOV 


0100..T38DLY 


JSR 


PC.WAITF 


MOV 


TSSP(R5),R1 


BIT 


4SSR.R1 


BNE 


630$ 


DELAY 


250 



630$: 



DEC 


T38DLY 


BNE 


620$ 


JSR 


PC.CHKTSSR 


BCS 


650$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T38SSR.PKTSSR 



650$ 



63$s 
64$; 



CKLOOP 

MOV 
CLR 
CLR 
JSR 
JMP 



JMP 
EXIT 



*T38BFR»20,R0 

Rl 

KTENABLE 

PC.T38MBP 

2$ 



200 
TST 



LOCAL TEXT MESSAGES FOR TEST 
LOCAL STORAGE FOR THIS TEST 
LOCAL STORAGE FOR THIS TEST 



TTI0N2; 




.WORD 







TVSAV2: 


.WORD 


C 




{SAVE 


TPSAV2: 


.WORD 







tSAVE 



SEQ 227 



j LOOP IF SELECTED 



I CLEAR BIT 04 
j READ EXTENDED 



TRAP 



C$CLP.t 



DRIVE STATUS 



I SET UP NEW WRT. SU65YS MEM. COMMAND 

,SET THE PACKET ADDRESS 

I SET UP DELAY ROUTINE 

I WAIT AWHILE FOR SSR TO SET 

jSEE TF IT REALLY DID 

I JUST CHECK THAT BIT 

,BR, IF SSR IS SET 

I DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

i START DELAY COUNT DOWN 

i BR, IF COUNTER IS NOT AT DONE 

j WAIT FOR SSR TO SET 

,BR IF CARRY SET (GOOD RETURN) 

j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP 



0250, CPO* 



L$DLY,CPCV 



-6CPC) 

. -4 

-22CPC) 

,-20 



j LOOP ON ERROR, IF FLAG 



.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERDF 
1022 
T38SSR 
PKTSSR 



C$CLPJ 



i MESSAGE BUFFER ADDRESS 

j NO HIGH ORDER ADDRESS BITS 

jNO KT11 STUFF EITHER 

,G0 PRINT MESSAGE BUFFER CONTENTS 

I GO BACK TO MENU 



jREALLY RETURN 
I LEAVE TEST 



TO THE SUPERVISOR 

TRAP C$EXIT 
.WORD L 10075- 



iWORD SET IF SUPERVISOR TTI INTER OFF 
TTI VECTOR 
TTI PRIORITY 



12 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 10: MANUAL INTERVENTION 



06-KEB-84 17:14 



SEQ 228 



6339 

6340 

6342 

6344 

6345 

6346 

6347 

6346 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6359 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6375 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 

6386 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

639f 

639/ 

6398 

6399 

6400 

6401 

6402 

6403 



07146? 

071470 
07i470 
07 J 472 
0714;* 
071476 
071500 
071500 
071501 
071502 
071504 
071506 
072162 



072170 
072170 
072172 
072174 
072176 



072200 
072200 
072202 
072204 
072206 
072210 

072220 
072222 
072224 
^2226 
L/2230 



072240 
072242 
072244 
072246 



000000 
071470 

140006 
071500 
000000 
000012 

COO 

000 

000000 

000000 

000000 



072170 

140004 
072200 
000000 

000012 



071506 
000000 
000400 
000000 
000000 
072220 
140212 
000000 
000000 
OOOOOO 
000000 



072240 
140005 
OOOOOO 
OOOJOO 
000400 



T38DLY: 


.WORD 





1 DELAY COUNTER FUR TEST 




.-<. ♦10>6177770 




T38PACKET: 




1 COMMAND PACKET FOR TEST 




.WORD 


140006 


iWRITE SUBSYSTEM MEM. CMD, ACK.CVC-1 




.WORD 


T38TAD 


l ADDRESS Of CHARACTERISTICS BLOCK 




.WORD 









.WORD 


10. 


i STARTING VALUE OF BLOCK SIZE 


T38TAD 






^CHARACTERISTICS DATA BLOCK 


T38BS0 


.BYTE 





,BSEL0 BYTE 


T38BS1 


.BYTE 





,BSEL1 BYTE 


T38BS2 


.WORD 





jBSELl WORD 




.WORD 





»DATA 


T38BFR 


.BLKW 


150. 


I MESSAGE BUFFER 


T38EBj 


.WORD 




jEND OF BUFFER ADDRESS 



"38PK2: 



, •<.»10>6:. 77770 





.WORD 


140004 




.WORD 


T380TA 




.WORD 







.WORD 


10. 


T36DTA: 








.WORD 


T38BFR 




.WORD 







.WORD 


256. 


T38EAI: 


.WORD 





T38DSW; 


.WORD 







.■«.»io 


>£177770 


T38PK3: 


.WORD 


140212 




.WORD 







.WORD 







.WORD 







.WORD 





SwRITE 


TAPE PACKET 


i 


. - < . ♦ 10 


>6177770 


T38PK4: 


.WORD 


140005 


T36WR; 


.WORD 







.WORD 





T38SIZ} 


.WORD 


256. 



I LOCAL TEX" MESSAGES FOR TEST 



,C0MMAN0 PACKET FOR TEST 

jWRITE CHARA. MEM. CMND., ACK,CVC=1 

I ADDRESS OF SELECT DATA BLOCK 

i STARTING VALUE OF BLOCK SIZE 



I SELECT DATA BLOCK 

j ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 

lEAI BIT WORD 

jDRIVE SELECT WORD ETC 

jMESSAGE BUFFER RELEASE COMMAND 
j NOT USED 
j NOT USED 
j NOT USED 
jNOT USED 



jWT^TE. ACK, CVC-1 COfHANO 
{ADDRESS OF WRITE BUFFER 
»MORE ADDRESS OF WRITE BUFFER 
j SIZE OF RECORD 



J2 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 10: MANUAL INTERVENTION 



06-FEB-84 17 5 14 



SEQ 229 



6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

644 3 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

t456 

6457 

6458 

6459 

6460 



072250 
072325 
072420 
072504 
072545 
072612 
072666 
072756 
073006 
073042 
073076 
073166 
073261 
073325 
073365 

073412 
073426 

073436 
073510 
073536 
073570 
073623 
073657 
073705 
073/50 
074013 



074014 
074016 
074016 
074022 
074026 
074032 
074036 
074040 
074044 
074^46 
074050 
074052 



123 
045 
124 
127 
127 
127 
103 
045 
045 
045 
103 
045 
045 
111 
115 

073436 
073705 

012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
000 



000000 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



164 
116 
123 
122 
122 
122 
157 
116 
116 
116 
157 
116 
116 
163 
141 

073510 
073750 

123 
Oil 
061 
062 
063 
064 
065 
066 



141 
045 
123 
111 
111 
111 
156 
045 
045 
045 
156 
045 
045 
040 
156 

073536 
074013 

105 
060 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 



071470 
140206 
071500 

000006 



T35NE: 

T38MS3; 

T38WRT: 

T38WRL: 

T38WLE: 

T38NBA: 

T38SSR: 

T38INTt 

T380NL: 

T380FL: 

T38SST; 

T36MS1? 

T33MS2: 

T38M3G: 

T36I0- 

MIMENU: 



1$ 

2* 
3$ 

4$ 

5$ 

61 
8$ 
9$ 
10*: 



.ASCIZ 
.ASCI7 

.asci;.' 

.ASCI-? 
.ASCIZ 
.ASCIZ 

,asch 

.ASu.'"2 

.as^:z 

,ASC .7. 

>t\scu 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.WO«D 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



'Stand- alone Manual Intervention Not Executed' 

'#N*A Type <RETURN> To Stop Servo Exerciser, Return To Menu' 

'TSSR Not Correct After WRITE. Mi'S WRITE PROTECT On' 

'WRITE LOCKED Bit Not Set In XSTO' 

•WRITE LOCK ERROR Bit Not Stt In XSTO' 

'WRITE SUBSYSTEM MEMORY Command Not Accepted' 

'Content* of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 

'«<N*A Interrupt Received' 

'*N*A Drive Ib Now ON-LINE' 

'*Nf>4 Drive Is Now OFF-LINE' 

'Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE' 

4 rfNrfAToQgle ON-LINE Switch to Generate ATTENTION Interrupts' 

**N*AType RETURN To Return To MenuKN' 

'Is Write -Protected Tope Mounted* 

'Manual Intervention' 

I*. 2*. 3$, 4*, 5$, 6* 
6$,9$, 101.0 

< 12>' SELECT OPERATION FROM FOLLOWING OPTIONS:' 



<12> 




1 
2 
3 
4 
5 
6 



Display This Menu' 

Turn On All M7196 LED' 's' 

Turn Off All M7196 LED' ••' 

Offline/Online Attention' 

Write Protect Test' 

Print Extended Transport Status' 

Return to Diagnostic Supervisor' 



i LOCAL 
J - 



STORAGE FOR THIS TEST 



T38DAT; .WORD 

T36REST: 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 



J ♦ 



OT38PACKET.R1 

0140206. CRD* 

*T38TAD,(R1)> 

(Rl)* 

06. ,CR1)» 

CR1)» 

CR1)» 

can 

PC 



jLOGICAL RESPONSE TO QUESTION 

j SAVE THE REGISTERS 

, START OF THE PACKET 

»WRITE SUBSYSTEM MEM. WITH ACK.CVC-1 

I ADDRESS OF DATA BLOCK 

lEXTENOED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

j CLEAR BSELO AND BSEL1 

, CLEAR SEL2 

j CLEAR DATA AREA 

j RETURN 



j THIS ROUTINE PRINTS THE CONTENTS OF 

jTHE 256 BYTE MESSAGE BUFFER RETURNED BY THE 

}TSV-05. 



j INPUT: 



RO 



LOW ORDER ADDRESS OF MESSAGE BUFFER 



I<2 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 10: MANUAL INTERVENTION 



06-FEB-84 17:14 



SEQ 230 



6461 






6462 






6463 






6464 






6465 






6466 






6467 074054 






6468 074054 






6469 074060 


010005 




6470 074062 


005737 


003134 


6471 074066 


001001 




6472 074070 


005001 




6473 074072 


010103 




6474 074074 


006100 




6475 074076 


006101 




6476 074100 






074100 


010546 




074102 


010146 




074104 


012746 


074356 


074110 


012746 


000003 


074114 


010600 




074116 


104415 




074120 


062706 


000010 


6477 074124 






074124 


012746 


074423 


074130 


012746 


000001 


074134 


010600 




074136 


104415 




074140 


062706 


000004 


6478 074144 


010501 




6479 074146 


010300 




6480 074150 


001403 




6481 074152 


004737 


017316 


6462 074156 


010005 




6483 074160 


010537 


074524 


6484 074164 


011504 




6485 0/4166 


022704 


125252 


6486 074172 


001417 




6487 074174 


010403 




6488 074176 


042704 


170377 


6489 074202 


000241 




6490 074204 


006004 




6491 074206 


006004 




6492 074210 


006004 




64^3 074212 


006004 




6494 074214 


042703 


177760 


6495 074220 


060403 




6496 074222 


010325 




6497 074224 


020527 


072162 


6498 074230 


001355 




6499 074232 


013705 


074524 


6500 074236 


0127C4 


000001 


6501 074242 






074242 


012546 




074244 


010446 




074246 


012746 


074500 


074252 


012746 


000003 



Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



T38MBP: 


SAVREG 






MOV 


R0,R5 




TST 


KTENABLE 




BNE 


910$ 




CLR 


Rl 


910$: 


MOV 


R1,R3 




ROL 


RO 




ROL 


Rl 




PRINTX 


0T38AS0,R1,R5 



PRINTX 0T38AS1 



iSA : THE REGISTERS 

jSAVE LOW ORDER ADDRESS 

{ADDRESS ABOVE 28K? 

I BR IF YES 

j SET HIGH ORDER ADCRESS TO 

jSAVE HIGH ORDER ADDRESS 

jSHIFT BIT15 TO C BIT 

j SHIFT TO HIGH ORDER FOR PRINTOUT 

{PRINT MESSAGE BUFFER ADDRESS 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 



, PRINT HEADER FOR CONTENTS 





MOV 


R5.R1 \ 




MOV 


R3.R0 i 




BEQ 


913$ j 




JSR 


PC.SETMAP i 




MOV 


R0.R5 i 


913$: 


MOV 


R5.T38CNT , 


911$: 


MOV 


CR5).R4 i 




CMP 


0125252, R4 i 




BEQ 


912$ i 




MOV 


R4.R3 j 




BIC 


0170377,R4 j 




CLC 






ROR 


R4 » 




ROR 


R4 i 




ROR 


R4 j 




ROR 


R4 j 




BIC 


0177760, R3 i 




ADD 


R4.R3 i 




MOV 


R3,(R5)» j 




C M P 


R5.0T38EB \ 




BNE 


911$ i 


912$: 


MOV 


T38CNT.R5 i 




MOV 


01. R4 i 


915$: 


PRINTX 


0T38ASN,R4,(R5)* 



ADD 

MOV 

MOV 

MOV 

TRAP 

ADD 

COPY LOW ORDER ADDRESS 

COPY HIGH ORDER ADDRESS 

BR IF NOT ABOVE 28K 

SETUP PAR ADDRESS IN RO 

GET PAR FORMAT ADDRESS ABOVE 28K 

HOLD ADDRESS 

GET BUFFER ENTRY 

CHECK FOR NO LOAD CONDITION 

BR, IF BUFFER WASN'T LOADED 

MAKE COPY 

ONLY BITS 11,10,9 AND 8 ARE SAVED 

CLEAR CARRY 

11 TO 10 BIT POSITION 

10 TO 9 BIT POSITION 

9 TO 8 BIT POSITON 

8 TO 7 BIT POSITION 

ONLY BITS 3,2,1 AND ARE SAVED 

•'OR' EM TOGETHER 

PUT BACK IN BUFFER 

END OF BUFFER YET 

BR, IF NOT AT END YET 

PUT ADDRESS BACK 

START BYTE NUMBER AT ONE 

jPRT MEM BUFFER W/NEWLINE 

MOV 
MOV 
MOV 
MOV 



R5.-CSP) 
Rl.-(SP) 

0T38AS0.-CSP) 

03,-CSP) 

SP,RO 

C$PNTX 

010, SP 

0T38AS1,-CSP) 

•1,-CSP) 

SP.RO 

C$PNTX 

04, SP 



(R5)*, -(SP) 
R4, (SP) 
OT36ASN, -tSP) 
03, -(SP) 



L2 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 10: MANUAL. INTERVENTION 



06-FEB-84 17:14 



SEQ 231 



6502 
6503 
6504 



6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 



6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

654 3 

6544 

6545 

6546 



074256 
074260 
074262 
074266 
074272 
074274 
074274 
074276 
074300 
074304 
074310 
074312 
074314 
074320 
074324 
074326 
074332 
074334 
074342 
074344 
074346 
074352 
074 354 

074356 
074423 
074461 
074500 

074524 
074526 
074526 
074526 



010600 
104415 
062706 
005037 
000412 

012546 
010446 
012746 
C12746 
CI 0600 
104415 
062706 
005237 
005204 
020427 
003010 
023727 
001401 
000753 
005037 
000733 
000207 

045 
045 
045 
045 

000000 



104401 



000010 
074524 



074461 
000003 



000010 
074524 

000200 

074524 

074524 



116 
116 
101 
116 



920$ j 



000004 



045 
045 
040 
045 







MOV 


SP.RO 






TRAP 


CfPNTX 






ADO 


#10, SP 


CLR 


T38CNT 


j CLEAR COUNTER 




BR 


921$ 


j SKIP OTHER PRINT 




PRINTX 


0T38ASC,R4,(R5)f 


j PRINT THE CONTENTS OF MEMORY 


BUFFER 






MOV 


(R5)*,-(SP) 






MOV 


R4.-(SP) 






MOV 


*T38ASC.-CSP) 






MOV 


#3, -(SP) 






MOV 


SP.RO 






TRAP 


CiPNTX 






ADD 


#10, SP 



921$ 



925$: 

50$ t 

T38AS0 
T38AS1 
T38ASC 
T38ASN 

T38CNT: 



INC 

INC 

CMP 

BGT 

CMP 

BEQ 

BR 

CLR 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

ENDTST 



T38CNT 

R4 

R4,0128. 

50$ 

T38CNT.04 

925$ 

920$ 

T38CNT 

915$ 

PC 



I BUMP COUNTER 

l NUMBER OF THE NEXT 

tDONE ALL YET ? 

I BRANCH IF ALL DONE 

j DONE FOUR YET 

j BR, IF THREE DONE 

j KEEP GOING 

» CLEAR COUNTER 
iPRINT WITH NEW LINE 

jRETURN 



#N*A Message Buffer Address - *01*05 
*N*A Messoge Buffer Contents:' 
*A #D4#Ai #03' 
*N*A Byte*D4tfA: *03' 

iCOUNTER FOR PRINT 



L10075; 



.SBTTL TEST 11: CONFIGURATION TYPEOUT 



TRAP 



C$ETST 



THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7196 MODULE AND TSV05 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED • 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTKYOED FEATURES DISABLED), 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 

3.0 MICROCODE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE ANO STATE ( ONLINE /OFFL INE , WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION. THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 

THE OPERATOR IS EXPECTED TO HEAD THE PRINTOUT AND VERIFY THAT IT MATCHES 



M2 



TSV5 - HARDWARE TESTS MACRO MU13 
TEST 11: CONFIGURATION TY^EOUT 



06-FEB-84 17:14 



SEQ 232 



654 7 






6548 






6549 






6550 






6551 






6552 






6553 






6554 






6555 






6556 






6557 






6558 






6559 






6560 






6561 074530 






074530 






6566 074530 






074530 


104421 




6567 074532 


001403 




6568 074534 


012700 


076523 


6569 074540 


000402 




6570 074542 


012700 


077652 


6571 074546 


004737 


016510 


6572 074552 


004737 


020500 


6573 074556 


103402 




6574 074560 


000137 


075740 


6575 074564 






6576 074564 


004737 


015774 


6577 074570 


103405 




6581 074572 


010001 




6582 074574 






074574 


104455 




074576 


002115 




074600 


003652 




074602 


012034 




6583 074604 






074604 


104406 




6584 074606 


013737 


002202 076470 


6585 074614 


012704 


076450 


6586 074620 


004737 


010662 


6587 074624 


103405 




6591 074C26 


010001 




6592 074630 






074630 


104456 




074632 


002116 




074634 


005056 




074636 


012034 




6593 074640 






074640 


104406 




6594 074642 


013701 


076000 


6595 074646 






074646 


012746 


077371 


074652 


012746 


000001 


074656 


010600 




074660 


104415 




074662 


062706 


000004 


6596 074666 


032701 


000200 



l THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
j THAT IT "SEES" TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
I THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE 
; CAUSE CBAD CABLE. FAULTY UNIT -SELECT DECODING IN THE TRANSPORT, ETC.), 
{[SINCE THE CONTROLLER CAN ONLY ACCESS UNIT IF IT IS IN "STANDARD" 
I MODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
{WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.] 
• 

I THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
{DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
{SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
{REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 



BGNTST 





RFLAGS 


RO 




BEQ 


10$ 




MOV 


0T39NE.R0 




BR 


11$ 


10$: 


MOV 


*TST39ID,R0 


11$: 


JSR 


PC.TSTSETUP 




JSR 


PC.CHKMAN 




BCS 


20* 


20$: 


JMP 


64$ 


JSR 


PC.SOFINIT 




BCS 


25$ 




MOV 


R0,R1 




ERRDF 


ERRNO,SFIERR,SFIMSG 



25$: 



CKLOOP 



MOV 


UNITN, T39DSW 


MOV 


0T39PK2.R4 


JSR 


PC.WRTCHR 


BCS 


50$ 


MOV 


RO.Ri 


ERRHRD 


ERRNO,WRTMSG,SFIMSG 



50$: 



CKLOOP 

MOV 
PRINTX 



T39BFR, 12,31 
0T39SFS 



Til: 

{GET OPERATOR FLAGS 



TRAP 



C$RFLA 



{BR, IF OK TO RUN 

{"TEST NOT EXECUTED" 

{JUMP OUT OF TEST IF NOT 

{TEST ID MESSAGE 

{DO THE COMMON SETUP 

{IS MANUAL INTERVENTION ALLOWED? 

i BR, IF MANUAI INTERVENTION ALLOWED 

{JUMP TO OUT iF NOT 

{DO SOFT INIT OF CONTROLLER 

jBR IF SOFT INIT * OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INI1 

TRAP C$ERDF 
.WORD 1101 
.WORD SFIERR 
.WORD SFIMSG 
{LOOP IF SELECTED 

TRAP C$CLP1 

{SET UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

jBR. IF COMMANO ISSUED OK 

{SAVE CONTENTS OF TSSR 

{WRITE 



{LOOP IF 

{GET XST* 
{"STATE i 



aracterist: 


CSC FAILED 






TRAP 


C$ERHRD 




.WORD 


1102 




.WORD 


WRTMSG 




.WORD 


SFIMSG 


SELECTED 








TRAP 


C$CLP1 


STATUS FROM MESSAGE 


BUFFER 


•=■ EXTENDED 


FEATURES SW 




MOV 


OT39SFS.-CSP) 




MOV 


♦l.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


fr4,SP 



BIT 



0BIT7,R1 



{CHECK STATE OF E.F.S. 



N2 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 11: CONFIGURATION TYPEOUT 



06-FEB-84 17:14 



6^97 074672 


001011 




6598 074674 






074674 


012746 


077515 


074700 


012746 


000001 


074 704 


010600 




074706 


104415 




074710 


062706 


000004 


6599 074714 


000410 




6600 074 716 






074716 


012746 


077524 


074722 


012746 


000001 


'174726 


010600 




074730 


1.04415 




074732 


062706 


000004 


6601 074736 






(T'4736 


012746 


077443 


0/4742 


012746 


000001 


074746 


010600 




• 74750 


104415 




V. 74 752 


062706 


000004 


6602 074756 


032701 


000100 


6603 074762 


001011 




6604 074 764 






074 764 


012746 


077515 


074770 


012746 


000001 


074774 


010600 




074776 


104415 




075000 


062706 


000004 


6605 075004 


000410 




6606 75006 






0/5^06 


012746 


077524 


0/5012 


012746 


000001 


075016 


010600 




075020 


104415 




075022 


062706 


000004 


6607 075026 


042701 


177700 


6608 075032 


01O13" 7 


077610 


6609 075036 






075036 


013746 


077610 


075O42 


012746 


077533 


075046 


012746 


000002 


075052 


010600 




075054 


104415 




75056 


062 706 


000006 


6610 075O62 


0O4737 


015774 


6611 075066 


103405 




6615 750 70 


010001 




6616 075072 






75072 


104455 




750 74 


00211? 




07^,076 


003652 




075100 


012034 




6M T 0'5102 






07510c 


104406 




fctl*) 07tlO4 


01575" 


00?20c 


Mil'* 7511,' 


C12704 


O7M50 


t>6J0 075116 


004757 


01066c 1 



BNE 100$ 
PRINTX 4T390FF 



100$: 



BR 110$ 
PRINTX 0T39ON 



110$: PRINTX 0T39SBS 



BIT >8IT6,R1 

BNE 120$ 

PRINTX 0T39OFF 



120$ j 



BR 130$ 
PRINTX 0T39GN 



130$: 



BIC 0177700, Rl 

MOV R1.T39RL 
PfllNTX 0T39MCL , T39RL 



140$: 



J lift 
BCS 
MOV 
E'WOF 



C*l0OP 



PC.SOFINIT 

140$ 

R0.R1 

ERRNO.SriERR.SFIMSG 



764 70 



MOV 
MOV 
JS« 



UNITN,T590SfcJ 

«T39PK2.R4 

PC.WRTCmR 



SEQ 233 






jBR. IF EXT. FEA. 


SW, IS ON 




, i» OFF" 








MOV 


0T39OFF,-(SP) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


#4,SP 


iSKIP OTHER PRINT 


STATEMENT 




(ii 0N M 








MOV 


0T39ON,~(SP) 




MOV 


♦ l.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


04, SP 


{"STATE OF BUFFERING SWITCH -" 






MOV 


0T39SBS,-(SP) 




MOV 


01,-CSP) 




MOV 


SP,RO 




TRAP 


C$PNTX 




ADD 


04, SP 


j CHECK STATE OF BUFFERING SW 




j BR, IF BUFFERING 


IS ON 




... 0FT » 








MOV 


0T39OFF.-CSP) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


04, SP 


{SKIP OTHER PRINT 


STATEMENT 




l" ON " 








MOV 


0T39ON.-CSP) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


04, SP 


;0NLY LEAVE MICROCODE REV LEVEL 




;LOAD UP REV LEVEL 




j "MICROCODE REVISION LEVEL -OOOXXX" 




MOV 


T39RL, -CSP) 




MOV 


0T39MCL.-CSP) 




MOV 


02 , - C SP ) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


06, SP 


jDO SOFT INIT OF 


COT 'ROLLER 




iBR IF SOTT INIT 






j SAVE CONTENTS UF 


TSSR 




iDEVICE FATAL ERROR DURING INIT 






TRAP 


C$EPDF 




.WORD 


1103 




.WORD 


SFIER^ 




.WORO 


SriMSC 


{LOOP \f 


SELECTED 






TRAP 


C$CLP1 


;SET UNIT NUMBER 






; SUBROUTINE NEEDS 


PACKET ADDRESS 


i ISSUE WRITE CHARACTERISTICS 





B3 



TSV5 - HARDWARE TESTS MACRO MU13 
TEST II? CONFIGURATION TYPEOUT 



6621 
6625 
6626 



662? 

6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6640 



6641 

6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 
6654 
6655 



6656 

6657 
6658 
6659 
6660 
6661 
6665 
6666 



6667 

6668 
6669 



075122 
075124 
075126 
075126 
075130 
075132 
075134 
075136 
075136 
075140 
075144 
075146 
07515* 
075162 
075166 
075172 
075176 
075200 
075202 
075202 
075204 
075206 
075210 
075212 
075212 
075214 



075220 
075224 
075226 
075230 
075230 
075232 
075234 
075236 
075240 
075240 
075242 
075246 
075254 
075260 
075264 
075266 
075270 
075270 
075272 
075274 
075276 
075300 
075300 

075302 



103405 
010001 

104456 
002120 
005056 
012034 

104406 
005737 
001036 
112737 
112737 
012704 
010465 
004737 
103405 
010001 

104456 
002121 
077225 
012040 

104406 
012704 



004737 
103405 
010001 

104456 
002122 
005056 
012034 

104406 
005037 
013737 
012704 
004737 
103405 
010001 

104456 
002123 
005056 
012034 

104406 

01650! 



06-FEB-84 17s 14 



BCS 

MOV 
ERRHRO 



150* t O'LOOP 



150$ 
R0.R1 

ERRNO, WRTMSG, SFIMSG 



SEQ 234 



I BR, IF COMMAND ISSUED 
I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC 



I LOOP IF SELECTED 



002226 



000200 075761 
000010 075760 
075750 
000000 
016336 



TST 

BNE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



EXTFEA 

174$ 

*200.T39eSl 

*10,T39BS0 

♦T39PACKET.R4 

R4.TSDBCR5) 

PC.CHKTSSR 

160$ 

R0.R1 

ERRNO, T39NBA.PKTSSR 



OK 

FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
FEATURES 



C$ERHRD 
1104 
WRTMSG 
SFIMSG 

C*CLP1 

SWITCH 



iCHECK FOR EXTENDED FEATURES SW 

iBR IF SWITCH IS ON 

I WRITE MISCELLANEOUS CONT/READ STATUS 

JUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

»WRITE SUBSYS MEM PACKET 

II5SUE COMMAND 

iWAIT FOR SSR 

»BR, IF NO ERROR 

lERROR, SAVE TSSR 

j TSSR NOT CORRECT AFTER 



WRT. MISCELLANEOUS 
TRAP C$ERHRD 
.WORD 1105 
,WO«D T39NBA 
.WORD PKTSSR 



160$ I 



076450 



CKLOOP 

MOV ♦T39PK2.R4 



lLOOP IF SELECTED 

TRAP C$CLP1 
iSUBROUTINE NEEDS PACKET ADORESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



010662 



JSR 




PC, WRTCHR 




PCS 




170$ 






M»/V 




R0.R1 






EriRS 


3D 


ERRNO, 


WRTMSG 


SFIMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
l SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC FAILED 

TRAP 
♦ WORD 
.WORD 
.WORD 



170$: CKLOOP 



l SCOPE LOOP 



TRAP 



C$ERHRD 
1106 
WRTMSG 
SFIMSG 

C$CLP1 



002202 

002202 076470 

076450 

010662 



174$; 
17511 



000002 



180$! 
190*1 



CLR 

MOV 
MOV 
JSR 
BCS 
MOV 
ERRHRD 



CKLOOP 



UNITN 

UNITN.T390SW 

OT39PK2.R4 

PC. WRTCHR 

180$ 

R0.R1 

ERRNO.WRTMSG.SFIMSG 



tSET TO DRIVE 
iSET UNIT NUMBER 

iSUBROUTINE NEEDS PACKET ADDRESS 
1 ISSUE WRITE CHARACTERISTICS 
i BR. IF COMMAND ISSUED OK 
iSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 



TSSRCR5)tRl 



lLOOP IF SELECTED 



iGET TSSR STATUS 



TRAP 



CiERHPD 
1107 
WRTMSG 
SFIMSG 

C*CLP1 



C3 



TSV5 - HARDWARE TESTS MACRO M1113 06-FF.B-84 I7il4 
TEST 11: CONFIGURATION TYPEOUT 



6670 075306 


032701 


000100 


6671 075312 


001414 




6672 075314 






075314 


013746 


002202 


075320 


012746 


076764 


075324 


012746 


000002 


075330 


010600 




075332 


104415 




075334 


0627C5 


000006 


6673 075340 


000137 


075674 


6674 075344 






075344 


013746 


002202 


075350 


012746 


077030 


075354 


012746 


000002 


075360 


010600 




075362 


104415 




075364 


062706 


000006 


6675 075370 


013701 


075774 


6676 075374 


032701 


000004 


6677 075400 


001013 




6678 075402 






075402 


013746 


002202 


075406 


012746 


077146 


075412 


012746 


000002 


075416 


010600 




075420 


104415 




075422 


062706 


000006 


6679 075426 


00O412 




6680 075430 






075430 


013746 


002202 


075434 


012746 


077073 


075440 


012746 


000002 


075444 


010600 




075446 


104415 




075450 


062706 


000006 


6681 075454 


012737 


125252 076066 


6682 075462 


112737 


000000 075761 


6683 075470 


112737 


000024 075760 


6684 075476 


012704 


075750 


6685 075502 


010465 


000000 


6686 075506 


012737 


000144 075744 


6687 075514 


004737 


016250 


6688 075520 


016501 


000002 


6689 075524 


032701 


000200 


6690 075530 


001017 




6691 075532 






075532 


012727 


000250 


075536 


000000 




075540 


013727 


002116 


075544 


000000 




075546 


005367 


177772 


075552 


001375 




075554 


005367 


177756 


075560 


001367 




6692 075562 


005337 


075744 


6693 075566 


001352 




6694 075570 


004737 


016336 



200 *; 



210$: 



2221: 



7:14 




SEQ 235 




BIT 


O0FL.R1 


.CHECK FOR OFF-LINE 




BEQ 


2001 


iBR. IF DRIVE IS ON-LINE 




PRINTX 


0T390F2.UNITN 


I "DRIVE NUMBER XX IS OFF-LINE" 








MOV 


UNITN.-(SP) 






MOV 


0T390F2.-CSP) 






MOV 


•2,-CSP) 






MOV 


SP.RO 






TRAP 


CIPNTX 






AOO 


06, SP 


JMP 


250» 


lOO NOT TRY TO GET ANYMORE INFO 


• 


PRINTX 


0T390N2.UNITN 


1 "DRIVE NUMBER XX IS ON-LINE" 








MOV 


UNITN.-(SP) 






MOV 


0T390N2.-CSP) 






MOV 


02.-CSP) 






MOV 


SP.RO 






TRAP 


CIPNTX 






ADD 


«6.SP 


MOV 


T396FR*6,R1 


iREAD EXTENDED STATUS (XSTO) 




BIT 


06IT2.R1 


iIS DRIVE WTITE PROTECTED 




BNE 


210* 


iBR, IF WRITE PROTECTED 




PRINTX 


0T39WPN.UNITN 


l "DRIVE NUMBER IS NOT WRT PRO" 








MOV 


UNITN.-(SP; 






MOV 


0T39WPN.-CSP) 






MOV 


♦2.-CSP) 






MOV 


SP.RO 






TRAP 


CiPNTX 






ADD 


06. SP 


BR 


220 % 


I SKIP OVER 




PRINTX 


0T39WRT.UNITN 


l "DRIVE NUMBER XX IS WRT PRO" 








MOV 


UNITN.-CSP) 






MOV 


0T39WRT.~(SP) 






MOV 


♦2.-CSP) 






MOV 


SP.RO 






TRAP 


CiPNTX 






ADD 


06. SP 


MOV 


♦125252. T396FR* 100 


|SET 1 LOC TO KNOWN VALUE 




MOVB 


00.T396S1 


lEXTENDEO TAPE STATUS 




MOVB 


024.T396S0 


lEXTENDED TAPE STATUS 




MOV 


0T39PACKET.R4 


iWRITE SUBSYS MEM PACKET 




MOV 


R4.TSDBCR5) 


i ISSUE COMMAND 




MOV 


0100..T39DLY 


j SET UP DELAY ROUTINE 




JSR 


PC. WAITF 


»WAIT AWHILE FOR SSR TO SET 




MOV 


YSSR(R5),R1 


»SEE IF IT REALLY DID 




BIT 


0SSR.R1 


lJUST CHECK THAT BIT 




BNE 


225$ 


iBR, IF SSR IS SET 




DELAY 


250 


» DELAY ABOUT .25 SEC 





225$: 



DEC 


T39DLY 


BNE 


222% 


JSR 


PC.CHKTSSR 



tSTAKT DELAY COUNT 
I BR. IF COUNTER IS 
I WAIT FQR SSR 



MOV 

.WORO 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 
DOWN 
NOT AT DONE 



0250, CPC)* 



L*DL1.(PC)> 



-6(PC) 

. 4 

-22CC) 



D3 



\m hT^murnhH t we88t 



M1113 Q6-FEB-84 17;14 



6695 075574 


103405 




6696 075576 


010001 




6700 075600 






075600 


104456 




075602 


002124 




075604 


077225 




075606 


012046 




6701 075610 






075610 


104406 




6702 075612 


023727 


076066 


6703 075620 


001013 




6704 075622 






075622 


013746 


002202 


075626 


012746 


076671 


075632 


012746 


000002 


075636 


010600 




075640 


104415 




075642 


062706 


000006 


6705 075646 


000412 




6706 075650 






075650 


013746 


002202 


075654 


012746 


076602 


075660 


012746 


000002 


075664 


010600 




075666 


104415 




075670 


062706 


000006 


6707 075674 


005237 


002202 


6708 075700 


023727 


002202 


6709 075706 


001402 




6710 075710 


000137 


075246 


6711 075714 






075714 


012746 


076520 


075720 


012746 


000001 


075724 


010600 




075726 


104415 




075730 


062706 


000OO4 


6712 075734 


000137 


000200 


6713 075740 






075740 


104432 




075742 


001736 




6714 






6715 






6716 






6717 






6718 






6719 






6720 






6721 075744 


000000 




6723 


075750 




6725 075750 






6726 075750 


140006 




6727 075752 


075760 




6728 075754 


000000 




6729 075756 


000012 




6730 075 760 






6731 075760 


000 




6732 075761 


000 





BC5 2301 

MOV R0.R1 

ERRHRD ERRNO , T39NB A , PK TSSR 



125252 



230$ j CKLOOP 

CMP 
BNE 
PRINTX 



T39BFR*100, 0125252 
240$ 

0T39ETN.UNITN 



240$; 



BR 250$ 

PRINTX 0T39ETS.UNITN 



000003 



250$: 



63$; 



INC 


UNITN 


CMP 


UNITN.03 


BEQ 


63$ 


JMP 


175$ 


PRINTX 


0T39NFL 



64$; 



I * 



JMP 
EXIT 



200 

TST 



lLOCAL TEXT MESSAGES FOR TEST 
jLOCAL STORAGE FOR THIS TEST 



T390LY* .WORD 





,-<.»10 


>£177770 


T39PACKET: 




.WORD 


140006 


.WORD 


T39TA0 


.WORD 





.WORD 


10, 


T39TAD; 




T39BS0s .BYTE 





T39BS1: .BYTE 






SEQ 236 



I BR, IF NO ERROR 

lERROR, SAVE TSSR 

I TSSR NOT CORRECT AFTER 



lLOOP IF SELECTED 



jDIO 
iBR. 

{"DRIVE 



LOC GET OVER 
IF IT OIDN' T 



DOESN'T HAVE 



WRT. 

TRAP 

.WORC 

.WORD 

.WORD 



TRAP 
WRITTEN 
GET ETC. 



MISCELLANEOUS 
C$ERHRD 
1108 
T39NBA 
PKTSSR 

CICLP1 



EXT TAPE 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



i SKIP OVER 
j "DRIVE HAS 



EXT TAPE STATUS" 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

iBUMP DRIVE NUMBER 

lAT END OF DRIVES YET 

|BR, IF NO MORE DRIVES 

jDO NEXT DRIVE 

j NEW LINE 

MOV 
MOV 
MOV 
TRAP 



STATUS 

UNITN, -(SP) 

0T39ETN.-CSP) 

02,-CSP) 

SP.RO 

C$PNTX 

06, SP 



UNITN, -CSP) 

0T39ETS.-CSP) 

02,-CSP) 

SP.RO 

CIPNTX 

06, SP 



iRETURN TO 
jEXIT THIS 



SUPERVISOR 
SECTION 



ADD 



TRAP 
.WORD 



0T39NFL.-CSP) 

Ol.-CSP) 

SP.RO 

C$PNTX 

04, SP 



CIEXIT 

L10076- 



lOELAY COUNTER FOR TEST 

jCOMMANO PACKET FOR TEST 

(WRITE SUBSYSTEM MEM. CMO. Af.K.CVC'l 

I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
iBSELO BYTE 
jBSELl BYTE 



E3 



TSV5 - HARDWARE TESTS MACRO 111113 06 -FEB -84 17; 14 
TEST 11 j CONFIGURATION TYPEOUT 



6733 

6734 

6735 

6736 

6737 

6739 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6755 

6757 

6758 

6759 

6760 

6761 

6763 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 



075762 
075764 
075766 



076450 
076450 
076452 
076454 
076456 



076460 
076460 
076462 
076464 
076466 
076470 

076500 
076502 



076510 
076512 
076514 
076516 



076520 
076523 
076602 
076671 
076764 
077030 
077073 
077146 
C77225 
077301 

077371 
077443 
077515 
077524 
077533 



000000 
000000 



076450 

140004 
076460 
000000 
000012 



075766 
000000 
000400 
000000 
000000 
076500 
140012 
000000 



076510 
140O05 
000000 

oooooo 

000400 



045 
123 
045 
045 
045 
045 
045 
045 
127 
103 

045 
045 
045 
045 

045 



116 
164 
116 
116 
116 
116 
116 
116 
122 
157 

116 
116 
101 
101 
116 



000 
141 
045 
045 
045 
045 
045 
045 

111 
156 

045 
045 
040 
040 
045 



T39BS2? .WORD 
. WORD 
T39BFR: .3LKU 150. 



T39PK2: 



.■<.»10>fil77770 





.WORD 


140004 




.WORD 


T39DTA 




.WORD 







.WORD 


10. 


T390TA: 








.WORD 


T39BFR 




.WORD 







.WORD 


256. 


T39EAT: 


.WORD 





T390SW: 


.WORD 







.-<.»10 


>6177770 


T39PK3: 


.WORD 


1400' 2 




.WORD 






, WRITE TAPE PACKET 

,-<.*10>£177770 
T39PK4: .WORD 140005 
T39WR: .WORD 
WORD 
T39SIZs !W0RD 256. 



jLOCAL TEXT MESSAGES FOR TEST 

i - 



SEQ 237 



»BSEL1 WORD 

iDATA 

jMESSAGE BUFFER 



l COMMAND PACKET FOR TEST 

iWRITE CHARA, MEM. CMNO., ACK,CVC»1 

I ADDRESS OF SELECT DATA BLOCK 

, STARTING VALUE OF BLOCK SIZE 



j SELECT DATA BLOCK 
jAODRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

jEAI BIT WORD 

, DRIVE SELECT WORD ETC 

j MESSAGE BUFFER RELEASE COMMAND 
jNOT USED 



jWRITE, ACK, CVC-1 COMMAND 
I ADDRESS Of WRITE BUFFER 
iMORE ADDRESS OF WRITE BUFFER 
I SIZE OF RECORD 



T39NFL 
T39NE: 
T39ETS 
T39ETN 
T390F2 
T390N2 
T39WRT 
T39WPN 
T39NBA 
T39SSR 

T39SFS 
T39SBS 

T390FF 
T390N: 
T39MCL 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
. ASCIZ 

.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 



Stand-alone Conf Ego rat Ion Typeout Not Executed' 

*N*A Extended Tape Statue Ava? liable. Drive Number #02' 

#N*A Extended Tape Statua NOT Aval liable, Drive Number *D2' 

*N#A Drive Number *02*A la Off-Line' 

#N*A Orive Number #02*A Ie On-Line' 

#N*A Drive Nunfcer *02*A la Write Protected' 

#N*A Drive Number *D2*A Ie NOT Write Protected' 

WRITE SUBSYSTEM MEMORY Command Not Accepted' 

Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 



*N*A State 

#N*A State 
*A OFF' 
#A ON * 
*N*A M7196 



Of Extended Features Switch 
Of Buffering Switch 



Macrocode Revision Level 



■*02 



F3 



TSV5 - HARDWARE TESTS MACRO M1113 
TEST 11? CONFIGURATION TYPEOUT 



06-FEB-84 17:14 



SEQ 238 



6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811 

6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 

6821 

6822 

6823 

6824 



077610 000000 



T39RL: 



i ► 



.EVEN 
.WORD 
.EVEN 
.EVEN 



077612 
077614 
077614 
077620 
077624 
077630 
077634 
077636 
077642 
077644 
077646 
077650 



000000 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



jLOCAL STORAGE FOR THIS TEST 
T39DAT: .WORD 



075750 
140006 
075760 

000006 



T39REST; 




SAVREG 




MOV 


0T39PACKET.R1 


MOV 


$140006, CRD* 


MOV 


*T39TAD,(Rl)f 


CLR 


CRD* 


MOV 


*6..CR1)» 


CLR 


CR1)* 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 



tLOGICAL RESPONSE TO QUESTION 

l SAVE THE REGISTERS 

l START OF THE PACKET 

jWRITL SUBSYSTEM MEM. WITH ACK.CVC 

iAD0r«6SS OF OATA BLOCK 

I EXTENDED ADDRESS 

i SIZE OF DATA BLOCK IN BYTES 

iCLEAR BSELO AND BSEL1 

j CLEAR SEL2 

i CLEAR DATA AREA 

t RETURN 



6825 
6826 
6827 
6828 
6829 
6830 
6831 
6832 
6833 
6834 
6835 
6836 
6837 
6838 
6839 
6840 
6641 
6842 
6843 
6844 
6845 
6846 
684 7 
6848 
6849 
6850 



077652 

077700 
077700 
077700 



103 



104401 



157 



!lOCAL TEXT MESSAGES FOR TEST 
J - 

156 TST39ID: .ASCIZ 'Configuration Typeout* 
.EVEN 
ENDTST 



.SBTTL TEST 12: SCOPE LOOPS 



L10076: 



TRAP CJETST 



THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MOOULE . THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS. CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 

CODE SCOPE LOOP 

HELP. PRINT THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE ACCESS 



G3 



TSV5 - HARDWARE TESTS 
TEST 12: SCOPE LOOPS 



6851 
6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 



MACRO M1113 06-FEB-84 17 5 14 



SEQ 239 



6870 

6871 
6872 
6873 
6874 
6875 
6576 
6877 
6878 
6879 
6880 
6881 
6885 



6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6895 



6896 
6897 
6898 



6899 
6900 
6901 



077702 

077702 

077702 

077702 

077704 

077706 

077712 

077714 

077720 

077724 

077730 

077732 

077736 

077742 

077744 

077746 

077746 

077750 

077752 

077754 

077756 

077762 

077766 

077772 

077774 

077776 

100002 

1000O4 

100010 

100012 

100012 

100016 

100022 

100024 

100026 

100032 

100036 

100040 

100040 

100044 

100046 

100052 

100060 



104421 
001403 
012700 
000402 
012700 
004737 
004737 
103402 
000137 
004737 
103405 
010001 

104455 
002261 
003652 
012034 
012700 
012701 
0O4737 
005700 
001760 
020027 
001015 
005737 
001012 

012746 
012746 
010600 
104417 
062706 
000137 
010004 

012700 
104441 
005037 
032737 
001005 



5 
6 
7 



8 



TSDB LOW BYTE WRITE ACCESS 
TSDB MAINTENANCE -MODE WORD WRITE ACCESS 
TSDBX CTSSR HIGH BYTE) WRITE ACCESS 
CEXTENOED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 
EXIT (RETURN TO SUPERVISOR) 



TOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 



101275 

101342 
016510 
020500 

100416 
015774 



li: 
100$: 



2$: 



BGNTST 

RFLAGS RO 

BEQ 1$ 

MOV *T40NE,R0 

BR 100* 

MOV 0TST4OID.RO 

JSR PC.TSTSETUP 

JSR PC.CHKMAN 

BCS 2* 

JMP 64$ 

JSR PC.SOFINIT 

BCS 5$ 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SFIMSG 



100434 
OOOOIO 
020256 



000007 
002226 



101217 
000001 



000004 

077736 



000340 

100426 
000100 



5$ j 



MOV 


OSCMENU.RO 


MOV 


08., Rl 


JSR 


PC.GETSEL 


TST 


RO 


BEQ 


2* 


CMP 


R0.07 


BNE 


3$ 


TST 


EXTFEA 


BNE 


3« 


PRINTF 


OEXFMSG 



3$ 



177560 



JMP 2\ 

MOV R0.R4 
SETPRI 0PR107 



CLR TTION 

BIT O1OO.S0TTICSR 

BNc 4* 



T12: 

;GET OPERATOR FLAGS 



TRAP 



CJRFLA 



jBR, IF OK TO K\M 

i "TEST NOT EXECUTED" 

j JUST EXIT IF NOT 

j TEST ID MESSAGE 

(DO THE COMMON SETUP 

j SEE IF MANUAL INTERVENTION ALLOWED 

(CARRY SET IF INTERVENTION ALLOWED 

I EXIT IF NO MANUAL INTERVENTION 

(DO A SOFT INIT 

i BRANCH IF OK 

(CONTENTS OF TSSR REGISTER 

(REPORT FATAL ERROR 

TRAP CSERDF 
.WORD 1201 
.WORD SFIERR 
.WORD SFIMSG 

(MENU OF SCOPE LOOP SELECTIONS 

(MAXIMUM ALLOWED SELECTION 

(GO GET THE OPERATORS SELECTION 

(WAS ZERO SPECIFIED ? 

(REPEAT MENU IF YES, 

(EXTENOED TSSR ? 

(BRANCH IF NOT 

(CHECK FOR EXTENOED FEATURES SET 

(BR, IF IT IS ON 

(WARN OPERATOR EXTENDED FEATURES CLEAR 



MOV 
MOV 
MOV 
TRAP 
ADD 
(GO BACK TO BASIC MENU 
(SAVE THE MENU SELECTION 
(RAISE THE PRIORITY 

MOV 
TRAP 
(ASSUME INTERRUPTS ARE ENABLED 
(ARE TTI INTERR'JPTS ON ? 
(BRANCH IF YES 



*EXFMSG.-(SP) 
01. -CSP) 

SP.RO 

CiPNTF 

04.SP 



*PRI0/,RO 
CSSPRI 



H3 



TSV5 - HARDWARE TESTS 
TEST 12: SCOPE LOOPS 



6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 



6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 



100062 
100066 
100074 
100100 
100104 
100110 
100114 
100120 
100120 
100124 
100126 
100130 
100134 
100136 
100140 
100142 
100144 
100146 
100150 
100152 
100154 



100156 
100162 
100164 



100166 
100172 
100174 
100176 

100200 
100204 
100206 
100212 
100214 
100216 



100220 
100224 
100230 
100232 
100236 
100240 
100242 



100244 
100250 
100254 
100256 
100262 
100264 
100266 



005237 
052737 
012701 
011137 
012721 
013 137 
012711 

012700 
104441 
006304 
00017'. 
077736 
100156 
100166 
100200 
100220 
100244 
100270 
-.00310 
100422 



105065 
011500 
000776 



012703 
060503 
011300 
000776 

004737 
010001 
012703 
060503 
010113 
000776 



105065 
0O4737 
010001 
012703 
060503 
110113 
000776 



105065 
004737 
010001 
012703 
060503 
110113 
000776 
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100426 

000100 177560 

000060 

100430 

100330 

100432 

000340 

000000 



100134 



000000 

000002 

020174 
000002 



000000 
020174 

000001 



000000 

020174 

000000 





INC 


TTION 




BIS 


nOC.SOTTICSR 


U: 


MOV 


0TTIVEC.R1 




MOV 


(Rl).TVECSAV 




MOV 


#60*. (Rl)* 




MOV 


(RD.TPRISAV 




MOV 


#PRI07,(R1) 




SETPRI 


OPRIOO 




ASL 


R4 




JMP 


S)6$CR4) 


6$: 


.WORD 


2$ 




.WORD 


10$ 




.WORD 


15$ 




.WORD 


20$ 




.WORD 


25$ 




.WORD 


30$ 




.WORD 


35$ 




.WORD 


40$ 




,W0RD 


65$ 


10$: 


CLRB 


TSDBCR5) 


12$; 


MOV 


CR5),R0 




BR 


12$ 


15$: 


MOV 


*TSSR f R3 




ADD 


R5.R3 


18$: 


MOV 


(R3),R0 




BR 


18$ 


20$: 


JSR 


PCGETPAT 




MOV 


R0.R1 




MOV 


*TSSR,R3 




ADD 


R5.R3 


22$: 


MOV 


R1.CR3) 




BR 


22$ 


25$: 


CLRB 


TSDBCR5) 




JSR 


PCGETPAT 




MOV 


R0.R1 




MOV 


*TSDBH,R3 




ADD 


R5.R3 


27$: 


MOVB 


RL.CR3) 




BR 


27$ 


30$: 


CLRB 


TSDBCR5) 




JSR 


PCGETPAT 




MOV 


R0.R1 




MOV 


*TSDB.R3 




ADD 


R5,R3 


32$: 


MOVB 


R1.CR3) 




BR 


32$ 



SEQ 240 



I FLAG SET IF INTERRUPTS OFF 

j ENABLE INTERRUPTS 

, START OF TTI VECTORS 

I SAVE THE CURRENT TTI VECTOR 

j SET NEW INTERRUPT ROUTINE 

I SAVE THE VECTOR PRIORITY 

j USE PRIORITY SEVEN 

l LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

j CONVERT TO WORD OFFSET 

,JUMP TO PROPER LOOP 

I RETYPE THE MENU 

iTSBA READ ACCESS 
READ ACCESS 
WRITE ACCESS 
HIGH BYTE WRITE ACCESS 
LOW BYTE WRITE ACCESS 
MAINTENANCE MODE 
WRITE ACCESS 



OPRIOO.RO 
C$SPRI 



jTSSR 

jTSSR 

jTSDB 

jTSDB 

jTSDB 

iTSDBX 

, LEAVE THE TEST 



, ENTER MAINTENANCE MODE 
j READ TSBA REGISTER 
j LOOP UNTIL HALTED 



I ADDRESS OF TSSR REGISTER 
iPOINT TO TSV05'S REGISTEF 
j READ TSSR REGISTER 
j LOOP UNTIL STOPPED 

,READ THE DATA PATTERN 
,DATA PATTERN FOR LOOP 
(ADDRESS OF "*"" 



j POINT 
iWRITE 
j LOOP 



TSSR 
TO TSV05'S REGISTERS 
DATA TO TSSR 



, ENTER MAINTENANCE MODE 

jREAD THE DATA PATTERN 

jDATA PATTERN FOR LOOP 

lAOORESS OF HIGH BYTE OF TSOB 

, POINT TO TSV05'S REGISTERS 

iWRITE THE DATA TO TSDB, HIGH BYTE 

I LOOP UNTIL STOPPED 



I ENTER MAINTENANCE MOOE 

iREAD THE DATA PATTERN 

,DATA PATTERN FOR LOOP 

j ADDRESS OF TSSR 

, POINT TO TSV05'S REGISTERS 

jWRITE DATA TO TSSR. LOW BYTE 

I LOOP UNTIL HALTED BY OPERATOR 



13 



TSV5 - HARDWARE TFSTS 
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6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

<978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

698/ 

6988 

6989 

6990 

6991 

6992 

6993 

6994 



6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 



100270 
100274 
100276 
10O302 

100304 



0W737 

010001 
012703 
060f.03 
010113 



100306 000776 



100310 
100314 
100316 
100322 
100324 
100326 



100330 
100332 
100336 
100342 
1C0346 
100350 
100356 
100362 
100370 
100376 
100402 
100404 
100412 
100414 

10O416 
100416 
100416 
100420 
100422 



10O426 
100430 

100432 



004737 
010001 
012703 
060503 
110113 
000776 



010046 
113700 
042700 
122700 
001021 
012766 
005066 
013737 
013737 
005737 
001403 
042737 
012600 
000002 



104432 
000736 
000137 



000000 

000000 

oooooo 



MACRO M1113 



020174 



OOOOOO 



020174 
000003 



06-FEB-84 


17:14 






35$} 


JSR 


PC, 


GETPAT 




MOV 


RO. 


Rl 




MOV 


*TSDB,R3 




AOD 


R5, 


,R3 


37*i 


MOV 


Rl, 


(R3) 




BR 


371 


I 


40$: 


JSR 


PC, 


, GETPAT 




MOV 


RO, 


,R1 




MOV 


*TSSRH,RJ 




ADD 


R5 ( 


,R3 


42$: 


MOVB 


Rl, 


,(R3) 




BR 


42$ 



177562 
000200 
000015 

077736 
000004 
100430 
100432 
100426 



000002 

000060 
000062 



000100 177560 



000200 



{PROCESS CONSOLE INTERRUPTS 
1 - 



60$: 



61$: 



64$ 

63$ 



65$: 



MOV 

MOVB 

BIC 

CMPB 

BNE 

MOV 

CLR 

MOV 

MOV 

TST 

BEQ 

BIC 

MOV 

RTI 



EXIT 



JMP 



RO.-CSP) 
0*TTIBFR,RO 
*2OO,R0 
♦15, RO 

61$ 

*2$,2(SP) 

4CSP) 

TVECSAV,B*TTIVEC 

TPRISAV,S*TTIVEC*£ 

TTION 

61$ 

0100.SOTTICSR 

(SP)*,R0 



TST 



200 



{LOCAL STORAGE FOR THIS TEST 



I 



TTION: .WORD 

TVECSAV: .WORD 
TPRISAV: .WORD 



SEQ 241 



{READ THE DATA PATTERN 
{DATA PATTERN FOR LOOP 
{SELECT TSDB 

{POINT TO TSV05'S REGISTERS 
{WRITE THE DATA PATTERN 

{LOOP UNTIL HALTEO 

{READ THE DATA PATTERN 

,SAVE THE DATA PATTERN 

{BYTE ADDRESS OF TSSR. HIGH BYTE 

{POINT TO TSV05'S REGISTERS 

{WRITE THE DATA TO REGISTER 

{LOOP UNTIL HALTED 



{SAVE WORK REGISTER 

{GET THE OPERATOR INPUT 

{STRIP OFF PARITY BIT 

{IS IT A CARRIAGE RETURN ? 

{JUST EXIT IF NOT 

{RETURN TO MASTER MENU 

{FORCE PRIORITY ZERO 

{RESTORE SUPERVISOR VECTOR 

{RESTORE SUPERVISOR PRIORITY 

,ARE SUPERVISOR INTERRUPTS ENABLED ? 

{BRANCH IF YES 

{TURN OFF TTI INTERRUPTS 

{RESTORE REGISTER 

{RETURN FROM INTERUPT 



{EXIT THE TEST 



{RETURN TO SUPERVISOR 



TRAP CJEXIT 
.WORD L10077-, 



{WORD SET IF SUPERVISOR TTI INTER OFF 
jSAVE TTI VECTOR 
{SAVE TTI PRIORITY 



!f1ENU FOR OPERATOR INPUT FOR SCOPE LOOPS 
i - 



100434 100466 100541 100567 SCMENUj 



.EVEN 
.WORD 



1$,2$,3$,4$,5C,6$ 



J3 



TSV5 - HARDWARE TESTS 
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7012 
7013 

7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 



7032 



100450 100740 100776 101044 



100466 
100541 
100567 
100613 
100637 
100701 
100740 
100776 
101044 
101113 
101156 
101157 
101217 
101275 
101342 

101356 
101356 
101356 
101360 



012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
000 
124 
045 
123 
123 



104401 



123 
Oil 
061 
062 
063 
064 
065 
066 
067 
070 

171 
116 
164 
143 



105 
060 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 

160 
045 
141 
157 



1* 
2$ 
3* 

4$ 

5$ 
6$ 

7$ 
8$ 
9$ 
10* 

11$ 
12$ 
EXFMSGt 
T40NE : 
TST40I0{ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 

ENDTST 



SEQ 242 



.WORD 7$, 8$, 91, 10$ ,11$ ,12$,0 



12> 
12> 



SELECT 

1 
2 
3 
4 
5 
6 
7 
8 



SCOPE LOOP FROM FOLLOWING OPTIONS:' 
Display This Menu' 
TSBA Read Access' 
TSSR Read Access' 
Initialize CTSSR Write Access)' 
TSDB High Byte Write Access' 
TSDB Low Byte Write Access' 
TSDB Maintenance Mode Write Access' 
TSDBX (TSSR High Byte) Write Access' 
Return to Diagnostic Supervisor' 



♦Type RETURN To Stop Scope Loops' 
»*N*A *** Extended Features Switch Not On 
'Stand-alone Scope Loops Not Executed' 
, ASCIZ 'Scope Loops' 



*++ 



L10077: 



TRAP 



C$ETST 



ENDMOD 



I<3 



TSV6 - PARAMETER CODING MACRO MU15 
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1 

7 
1? 
16 

19 101360 
101360 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 101360 
101360 
101362 
32 

33 101362 
101362 
101 T64 
j.01366 
101370 

34 101372 
101372 
101374 
101376 
101400 

35 

36 101402 
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SEQ 243 



101402 

37 101402 

38 101436 

39 101462 
40 



000010 



000031 
101402 
160010 
177776 

001031 
101436 
000000 
0007 76 



104 
111 
111 



105 
116 
116 



TSV6: j 



I *■♦ 



.TITLE TSV6 - PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



, THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

j THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 

i MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

; INTERPRETED BY THE SUPERVISOR AS DATA STtfJCTUAES. THE 

i MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

; WITH THE OPERATOR, 



I -- 



L SHARD; j 



BGNHRD 

.WORD L10100-L$HARD/2 



L10100; 
126 HPM1 
124 HPM2 
124 HPM3 



GPRMA 

.WORD 

.WORD 

.W\VD 

.WL.'ID 

GPf M A 

. W(X- 

.WORL 

.WORD 

.WORD 

jG°RMO 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPM1, 0,0, 160010, 177776, YES 

T$CODE 

HPM1 

TILOLIM 

TIHILIM 

HPH2,2,Q,0,776,YES 

T$C0DE 

HPM2 

TILOLIM 

T*HILIM 

HPM3, 4,0, 340, 0,7, YES 



DEVICE ADDRESS (TSBA/TSDB) 
INTERRUPT VECTOR 
INTERRUPT PRIORITY 



;GET TSBA/TSDB REGISTER ADDRESS 



.-GET VECTOR ADDRESS. 



jGET INTERRUPT PRIORITY 



L3 
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42 
43 
44 
45 
46 
4? 
48 
49 
50 
51 

53 101512 
101512 
101514 

53 

54 101514 
101514 
101516 
101520 

55 
56 
57 101522 



06-FEB-84 IT; 14 



SEQ 244 



000003 



001130 
101552 
177777 



101522 
58 

59 101522 

60 101552 

61 101602 

62 101632 
63 

64 
65 
66 
67 
68 
69 
70 
71 

72 101662 

73 

74 101662 

75 

77 

79 102000 

102000 
102002 
102004 

80 102004 
81 



105 
HI 
120 
120 



116 
116 
105 
105 



102000 



000000 
000000 



000001 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



; T.^c SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
I THAT ARE USED 8Y THE SUPERVISOR TO BUILD P- TABLES. THE 
j MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

WITH THE OPERATOR. 



L.ISOFTn 



BGNSFT 

.WORD L10i01-LiS0FT/2 



L10101: 



101 SPM1 

110 SPM4 

122 SPM6 

122 SPM7 



GPRML 

GPRML 

.WORD 

.WORD 

■ WORD 

GPRMO 

GPRMD 

ENDSFT 

• EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.SBTTL 



SPM1, 0,-1, YES 
SPM4, 2,-1, YES 
T*CODE 
SPM4 

-1 

SPM6, 4,0,7777,0, 7777, YES 
SPM7,6,D, 7777, 0,7777, YES 



'ENABLE TRANSPORT TESTS 
•INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
•PER UNIT ERROR LIMIT 
PATCH AREA 



j GET TRANSPORT TEST FLAG 
: GET ITERATION CONTROL. 



i GET LOCAL ERROR LTMIT 
I GET GLOBAL ERROR LIMIT 



j FINALLY A GENEROUS PATCH AREA. 

AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 
DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 



PATCH-: 



.BLKW 32, 





.-. !377 


fl 




LASTAD 






.EVEN 






.WORD 







.WORD 





L*LAST: 


'endmqd 

.END 





I SET LAST USED ADDRESS. 



M3 



TSV6 - 


PARAMETER CODING 


MACRO M1113 06-FEB-84 


17:14 






SEQ 245 






SYMBOL 


TABLE 


















ADDSSR 


012126 G 


C$AU ■ 


000052 


DEVDRO 


023376 


FREEHI 


003130 


INTCPC 


016150 


ADR 


000020 G 


CIAUTO- 


000061 


DEVNRD 


023315 


FRESIZ 


003126 G 


INTFLA 


016145 


AMBTSS 


006635 


C$BRK - 


000022 


DEVNXR 


023233 


FUSI 


004117 


INTMAS 


016144 


ASSEMB- 


000010 


C*BSEG- 


000004 


DEVONL 


023163 


F*AU ■ 


000015 


INTR 


016216 G 


A1716 * 


000003 


C*BSUB- 


000002 


DEVSUM 


023126 


FIAUTO- 


000020 


INTREC 


002224 G 


BADOAT 


003156 G 


CiCEFG- 


000045 


DFPTBL 


002156 G 


F$BGN ■ 


000040 


INTVEC 


016146 


BADSSR 


015700 G 


C$CLCK- 


000062 


DIAGMC- 


000000 


FICLEA- 


000007 


INTX 


004300 


BDVPCR* 


177520 G 


CiCLEA- 


000012 


DICEB - 


000001 


F*DU ■ 


000016 


INVERT 


021206 G 


BENBSW 


002230 G 


C*CL0S« 


000035 


DSBINT 


016204 


FIEND - 


000041 


IOKCKI- 


000200 


BIE 


040000 


C$CLP1- 


000006 


DUA012 


004643 


FiHARC- 


000004 


IOKSTP- 


000001 


BITO - 


000001 G 


CSCVEC- 


000036 


DUFLG 


003112 G 


F*HU - 


000013 


IPRI 


002212 G 


BITOO - 


000001 G 


CJDCLN- 


000044 


DUMMY 


003062 


F$INIT- 


000006 


ISR 


000100 G 


BITOl - 


000002 G 


C$DODU» 


000051 


EF.CON- 


000036 G 


F$JMP ■ 


000050 


IVEC 


002210 G 


BIT02 * 


000004 G 


C$ORPT- 


000024 


EF.NEW- 


000035 G 


FIMOD - 


000000 


IXE 


004000 G 


BIT03 - 


000010 G 


C*DU - 


000053 


EF.PWR- 


000034 G 


F$MSG ■ 


000011 


IIAU - 


000041 


BIT04 - 


000020 G 


C$EDIT- 


000003 


EF.RES- 


000037 G 


FiPROT- 


000021 


I$AUT0* 


000041 


BIT05 - 


000040 G 


C$ERDF« 


000055 


EF.STA- 


000040 G 


FiPUR - 


000017 


I$CLN • 


000041 


BIT06 - 


000100 G 


C*ERHR- 


000056 


EMAXDU 


016777 


F*RPT - 


000012 


IiDU - 


000041 


BIT07 » 


000200 G 


C*ERR0« 


000060 


EN 


000000 


FISEG « 


000003 


I$HRD ■ 


000041 


BIT08 - 


» 000400 G 


C$ERSF- 


000054 


ENAINT 


016152 


FiSOFT- 


000005 


ISINIT- 


000041 


BIT09 * 


. r^ooo G 


CSERSO- 


000057 


ENVIRN 


020630 


F$SRV ■ 


. 000010 


I$M0C • 


000041 


BIT1 ' 


■ 00O002 G 


CIESCA- 


000010 


EPRTSW 


002200 G 


F$SUB - 


• 000002 


IiMSG - 


000041 


BITIO * 


• 002000 G 


CSESEG- 


000005 


EPRT1 


006360 


F*SW « 


• 000014 


IJPROT- 


000040 


BIT11 " 


• 004000 G 


C$ESUB- 


000003 


CPRT2 


006360 


FITEST' 


■ 000001 


IIPTAB- 


000041 


BIT12 - 


■ 010000 G 


CIETST- 


000001 


ERCM 


011733 


GDDAT 


003160 G 


I$PWR - 


000041 


BIT13 ■ 


■ 020000 G 


CiEXIT" 


000032 


ERRHI 


002236 G 


GERRMA 


002174 G 


I$RPT « 


000041 


BIT14 > 


• 040000 G 


C*GETB- 


000026 


ERRK 


016756 


GETPAT 


020174 G 


I$SEG - 


000041 


BIT15 « 


• 100000 G 


C$GETU- 


000027 


ERR) 


002240 G 


GETSEL 


020256 G 


IiSETU- 


000041 


BIT? - 


• 000004 G 


CJGMAN- 


000043 


ERRNO - 


002261 


GtCNTO- 


• 000200 


IISFT - 


000041 


BIT3 « 


• 00O010 G 


CiGPHR- 


000042 


ERRVEC- 


000004 G 


GtDELM' 


- 000372 


IiSRV * 


000041 


BIT4 


• 000020 G 


C$GPL0* 


000030 


ERTABE 


003376 


GIDISP- 


• 000003 


i$sue - 


000041 


BIT5 


• 000040 G 


C$GPRI- 


000040 


ERTABL 


003176 


GIEXCP 


• 000400 


I5TST ■ 


000041 


BIT6 


- 000100 G 


C$INIT- 


000011 


ESUM 


016760 


GiHlLl 


■ 000002 


JUMP » 


000167 


BIT? 


• 000200 G 


CtlNLP- 


000020 


EVL 


000004 G 


GILOLI 


• OOC001 


KIPARO* 


172340 


BITS 


- 000400 G 


C$MANI" 


000050 


EXBCNT- 


000010 


GINO 


■ 000000 


KIPAR1- 


172342 


BIT9 


• 001000 G 


C$MEM - 


000031 


EXFMSG 


101217 


G10FFS 


■ 000400 


KIPAR2- 


172344 


BOE 


■ 000400 G 


C*MSG ■ 


000023 


EXPBRE 


015502 G 


G*OFSI 


• 000376 


KIPAR3- 


172346 


BRINIT 


004457 


C*OPEN- 


000034 


EXPO 


002232 G 


G*PRMA 


■ 000001 


KIPAR4- 


172350 


BSELO 


- 000000 


CiPNTB- 


000014 


EXPGOT 


004533 


G*PRMO 


- 000002 


KIPAR5- 


172352 


B5EL1 


- 000001 


C$PNTF- 


000017 


EXPGT2 


004567 


GtPRML 


- 000000 


KIPAR6- 


172354 


CHKAMB 


016044 


CIPNTS- 


000016 


EXPMSG 


002322 G 


GIRADA 


- 000140 


KIPAR7- 


172356 


CHKMAN 


020500 G 


C*PNTX- 


000015 


EXPREC 


015474 G 


G)RADB 


- 000000 


KIPDRO- 


172300 


CHKTSS 


016336 


C*QIO • 


000377 


EXTA 


005772 


GiRADO 


- 000040 


KIPDR1- 


172302 


CKDROP 


017202 


CIROBU- 


000007 


EXTEND 


005770 


G$RADL 


- 000120 


KIPDR2- 


172304 


CKEMAX 


017102 


C$REFG« 


000047 


EXTFEA 


002226 G 


G$RADO 


■ 000020 


KIPDR3- 


172306 


CKMSG 


011360 G 


C$RESE- 


000033 


E$END - 


002100 


GSXFER 


- 000004 


KIPDR4- 


172310 


CKMSG2 


011500 G 


CIREVI- 


000003 


EiLOAD- 


000035 


GtYES 


■ 000010 


KIPDR5- 


172312 


CKRAM 


011114 G 


C$RFLA« 


000021 


FATERR- 


000060 


HIADDR 


- 001400 


KIPDR6- 


172314 


CKRAM2 


011224 G 


C$RPT « 


000025 


FATFLG 


002222 G 


HOE 


- 100000 G 


KIPDR7- 


172316 


CMOPKT 


021260 G 


CISEFG' 


000046 


FERCM 


011722 


HPM1 


101402 


KTENAB 


003134 G 


CMP MEM 


017660 


C*5PRI« 


000041 


FIFEXP 


012170 G 


HPM2 


101436 


KTFLG 


003132 G 


CONFIG 


017250 


C*SVEC" 


■ 000037 


FIF1MS 


012242 


HPM3 


10146? 


KTINIT 


021054 


COUNT 


002310 G 


CtTPRI- 


• 000013 


FIF2MS 


012311 


IBE 


- OlOOOt .i 


KTOFF 


017274 


CSRADD 


002206 G 


DATA 


002312 G 


FILLME 


017422 


IDU 


- 000040 3 


'' T nKi 


017256 


CTAB 


003164 G 


DATASC 


020232 


FNOINT 


004215 


IER 


- 020000 5 


> \ P.HMA 


002172 G 


CTA8E 


003176 G 


DEBUGM 


011632 


FORCER 


002176 G 


IFAULT 


004256 


.. : ^RNO- 


;0'-x n o 


CTABM 


003164 G 


DEVCNT 


002220 G 


FREE 


003124 G 


INCERK 


017044 
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LOE 

LOOPCN 

LOOPCO 

LOOPFL 

LOT 

L*ACP 

LSAPT 

L$AU 

L$AUT 

L$AUTO 

L$CCP 

L*CLEA 

L$CO 

L$DEPO 

L$DESC 

L$DESP 

L$DEVP 

L$OISP 

LSDLY 

L*DTP 

L$DTYP 

L$DU 

L*DUT 

LJDVTY 

L*EF 

L*ENVI 

L$ETP 

L$EXP1 

LSEXP4 

L*EXP5 

L SHARD 

L$HIME 

L*HPCP 

LIHPTP 

L$HU 

L$ICP 

L*INIT 

LtLADP 

LiLAST 

LiLOAD 

L$LUN 

L$MREV 

L$NAME 

L$PRIO 

L$PROT 

LIPRT 

LiREPP 

L$REV 

LIRPT 

LiSOFT 

LISPC 

LISPCP 

L*SPTP 

LSSTP 

LiSW 

LITEST 

L*UML 



G 
G 



040000 

002216 

013126 

003162 

000010 

002110 

002036 

022352 

002070 

022556 

002106 

022636 

002032 

002011 

003410 

002076 

002060 

002124 

002116 

002040 

002034 

022450 

002072 

003402 G 

002052 G 

002044 
002102 
002046 
002064 
002066 
101362 
002120 
002016 
002022 
0O2156 
002104 
021556 
002026 
102004 
002100 
002074 
002050 
002000 
002042 
021546 
002112 
002062 
X)2010 
022664 
101514 
002056 
002020 
00202* 
002C -j-. 

oc. • 

O - ■ ' 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 



L$UNIT 


002012 G 


L 10000 


002164 


L10001 


002176 


L 1^002 


005766 


L 10003 


012044 


LI 0004 


012062 


L 10005 


012100 


L 10006 


012106 


LI 0007 


012124 


L10010 


012142 


L10011 


012166 


L10012 


012240 


L10013 


012410 


L10014 


01^124 


L 10015 


013752 


L10016 


013774 


L10017 


015500 


L 10020 


015506 


L10021 


015514 


L 10022 


015526 


L 10023 


015550 


L 10024 


015576 


L10025 


015736 


L 10026 


016246 


L100J0 


022302 


L 10031 


022446 


L10032 


022554 


L 10033 


022634 


L 10034 


022662 


L 10035 


023124 


L10036 


024424 


L10037 


026416 


L10040 


024700 


L10041 


025144 


I 10042 


032012 


L10043 


026772 


L10044 


027262 


L10045 


027560 


L 10046 


030212 


Llv0^7 


034602 


L10050 


032346 


L 10051 


032740 


L 10052 


033346 


L10053 


040374 


L10054 


035666 


L 10055 


036620 


L 10056 


050506 


L10057 


040700 


L 10060 


042110 


L10061 


045450 


L 10062 


044026 


L10O63 


045300 


L 10064 


046344 


L 1006b 


051766 


L 10066 


062614 


L 10067 


053772 


L 10070 


055260 



L10071 
L10072 
L10073 
L10074 
L10075 
L10076 
L10077 
L10100 
L10101 
MEMAOD 
MEMCK 
MENASC 
MENERR 
MENRES 
MIMENU 
MM^EC - 
M C A.FR- 
MSA. NO- 
MSA, NR- 
MSA.VO- 
MSGEXP 
MSGLOO 
MSGSTA 
MSGSUB 
MS. ATT- 
MS. EXT- 
MS.R5D- 
MS.RSF- 
MS.RST- 
M8186 
M8189 
N8A 
NEWPAS 
NOOEV 
NOEXTF 
NOINIT 
NOINTR 
NOITS 
NOMAN 
NOMEM 
NP.IR - 
NP.LOO' 
NP.OUT« 
NP.URP- 
NSI 

NSZNIT 
NUL 
NULCR 
NXrt 
NXMFI.G 

nxmhi 

NXMLO 
IXMTSY 
NXR 

NXRrRR 
NXRX 
NXTU 



G 
G 
G 
G 



056530 

057774 

066664 

065024 

074526 

077700 

101356 

101402 

101522 

013754 

021276 

020447 

020374 

020476 

073412 

000250 

000006 

000000 

000004 

000002 

012144 

013064 

012350 

013742 

000006 

000200 

000001 

000020 

000010 

005554 

005645 

002000 

022010 

003114 G 

030206 

004335 

004221 

002170 G 

020534 

005460 

000200 

000040 

000100 

000020 

00*152 

0044C7 

004527 

004530 

004000 

003136 G 

003142 G 

003140 G 

021452 

003740 

005736 G 

003777 

022022 



OFL 

ONEFIL- 
OiAPTS- 
0*AU - 
OiBGNR- 
0$BGNS- 
OiDU - 
OIERRT- 
0$GNSW- 
0$POIN- 
OISETU- 
PASRPT 
PATCH 
PATDAT 
PC. ERA- 
PC. IER- 
PC.NOO- 
PC.REL- 
PC.REW- 
PKBCNT- 
PKHI ■ 
PKLOW « 
PKTADO 
PKTFRM 
PKTGET 
PKTMES 
PKTRAM 
PKTSSR 
PNT 

PRAMPK 
PRASC 
PRBEXP 
PRBM3G 
PRBREC 
PRBTOT 
PRBYTE 
PRI 

PRIADD 
PRIAO 
PRIBXO 
PRIEQU 
PRIPKT 
PRIRAM 
PtflTAD 
PRITiS 
PRITO 
PRIT1 
PRIXOR 
PRIOO - 
PRI01 - 
PRI02 « 
PRI03 « 
PRI04 - 
PRI05 - 
PRI06 ■ 
PHI07 • 

PRMESS 



SEQ 246 



000100 

000000 

000000 

000001 

000001 

000001 

000001 

000000 

000001 

000001 

000000 

022054 

101662 

020230 

002400 

002000 

001000 

000000 

000400 

000006 

000004 

000002 

007554 

007516 

012064 

012110 

004745 

012046 

001000 

013776 

014523 

015470 

015336 

015472 

015423 

015122 

002000 

010160 

010230 

007612 

010060 

007370 

010066 

010274 

006024 

010356 

010421 

007742 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

OOC340 

014242 



G 
G 
G 
G 
G 
G 
G 
G 
G 



PRMNO 


002320 


G 


PRMSGE 


014552 


G 


PRMSGO 


014732 




PRMSG1 


014777 




PRMSG2 


015035 




PROASC 


014420 




PR1ASC 


014465 




PST32W 


003152 


G 


PUNIT 


022304 




PW.D11- 


000021 




PW.013- 


000022 




PU.D22- 


000020 




PW.NOP- 


000000 




PW.N01- 


000023 




PW.RDE- 


000024 




PW.RDR- 


000001 




PW.ROS- 


000005 




PU.RFI- 


000003 




PW.WCT- 


000006 




PU.UFI- 


• 000004 




PW.WFM- 


• 000007 




PW.Whl" 


■ 000010 




PW.WNP' 


• 000011 




PW.WTR« 


■ 000002 




p.ac:; - 


■ 100000 




P.CMD - 


• 000037 




P.CONT> 


■ 000012 




P.CVC • 


■ 040000 




P.FMT • 


• 000140 




P. FORM' 


• 000011 




P. GETS* 


• 000017 




P. IE > 


- 000200 




P.INIT 


- 000013 




P. MODE « 


• 007400 




P.OPP 


- 020000 




P.POSI 


• 000010 




P.REAO 


■ 000001 




P. SUB 


• 010000 




P. WRIT 


• 000005 




p.w«rc 


- 000004 




P.WRTS 


- 000006 




QVP 


002204 


G 


RAMASC 


014156 




RAMOAT 


002242 


G 


RAMERR 


015*10 


G 


RAMEXP 


015530 


G 


RAMFOR 


010116 




RAMSI2 


002302 


G 


RAMTAD 


015516 


G 


RCVHIA 


002304 


G 


RCVLOA 


002306 


G 


ROERR 


005206 




RF.CMSG 


002466 


G 


RECV 


002234 


G 


REGSAV 


020140 




RETERR 


0053 72 




REWIND 


0X1014 


G 
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RMCHBE ■ 


000167 


Sl.IID* 


004000 


TST40I 


101342 


T10 


066666 G 


T15BFR 


033412 


RMCMEN- 


000200 


S1.X1R- 


020000 


TSV2 


002000 G 


Til 


074530 G 


T15BF2 


034100 


RMMSG8- 


000215 


S1.I2R- 


040000 


TSV3 


002176 G 


T12 


077702 G 


T15BS0 


034100 


RMMSGE- 


0002 54 


SI. PAR- 


100000 


TSV4 


021546 G 


T12BFR 


030302 


T15BS1 


034101 


RMPKTB- 


000201 


S2.ATX- 


000010 


TSV5 


023446 G 


T126KG 


030757 


T150AT 


033400 


RMPKTE- 


000210 


S2.BTI- 


000004 


TSV6 


101360 G 


T12BLK 


030334 


T15L00 


032044 


RMR 


010000 


S2,0IM- 


000200 


TTIBFR- 


177562 G 


T12CHA 


031750 


T15PAC 


033370 


RWPACK 


011110 


S2,ILU- 


000100 


TTICSR* 


177560 G 


TI2CKR 


031530 G 


T15PK2 


034070 


SC 


100000 


S2.INR- 


000020 


TTION 


100426 


T12C0N 


031336 


U5RES 


034472 


set 


020000 


S2.0UT- 


000040 


TTI0N2 


071454 


T120AT 


030270 


T15RT2 


034544 


SCHERR 


005300 


S2.0N0- 


000003 


TTIVEC- 


000060 G 


T120PR 


031136 


T15SSR 


034106 


SCME 


00501? 


TBLEND- 


003062 G 


TVECSA 


100430 


T12GET 


030516 


T15S2 


034102 


SCMENU 


100434 


TCOASC 


006476 


TVSAV2 


071456 


T12HIA 


030322 


T15S3 


034104 


SOELAY 


010660 


TCOCOO 


006676 


TIARGC- 


000001 


T12KT 


030330 


T 16BEN 


040260 


SELASC 


020442 


TEMPI 


003116 G 


TICOOE- 


001130 


T12L0A 


030324 


T16BFR 


040232 


SELDAT- 


000004 


TEMP2 


003120 G 


T*ERRN- 


002261 


T12L00 


026446 


T16BFS 


040252 


5EL2 ■ 


000002 


TERCLS- 


000016 


TIEXCP- 


000000 


T12MSG 


030661 


T16CLR 


040076 


SETMAP 


017316 


TESTNO- 


000014 


TIFLAG- 


000040 


T12NIN 


031045 


U6DAT 


040220 


SETU 


022106 


TEXASC 


006435 


TIGMAN- 


000000 


T12NXM 


031227 


T160T2 


040270 


SFFMSG 


012102 G 


TFCASC 


006537 


TIHXLX- 


000776 


T12PAC 


030260 


T16001 


036652 


SFHERR 


003705 


TIMEXP 


015552 G 


TILAST- 


000001 


T12PAR 


030326 


T 16026 


036654 


SFIERR 


003652 


TIMSGO 


015600 


TILOCI- 


000000 


T12SET 


031706 


T 16053 


056656 


SFIMSG 


012034 G 


TINERR 


012021 


TILSYM- 


010000 


T12SWR 


031640 


T 16076 


036660 


SFPTBL 


002166 G 


TMP8FR 


002632 G 


T$LTN0« 


000014 


T12TBE 


030466 


T16LEN 


037202 


SIFLAG 


003154 G 


TNAM 


016704 


TINEST- 


177777 


T12WRT 


030572 


U6L00 


054622 


SIMSG 


011766 


TPRISA 


100432 


TINSO « 


• 000000 


U21L0 


026560 


T16PAC 


040210 


SKIPT 


003400 


TPSAV2 


071460 


TINS1 - 


- 000005 


T122L0 


027114 


T16PK2 


040260 


SOflNI 


015774 G 


TRAN5T 


002166 G 


TINS2 - 


■ 000002 


T123L0 


027334 


T16REJ 


057314 


SPACE 


010466 G 


TSBA - 


000000 G 


TINS3 ■ 


• 000003 


T124L0 


027756 


T16RES 


040030 


SPM1 


101522 


TSBAH - 


000001 G 


TIPTNU' 


• 000000 


T124TS 


030332 


T16SEX 


040170 


SPM4 


101552 


Tsoe - 


000000 G 


TISAVL- 


• 177777 


T13BFR 


024062 


T16SR0 


040122 


SPM6 


101602 


TSOBH - 


000001 G 


T*SEGL« 


» 177777 


T130AT 


024050 


T16SSR 


056 732 


SPM7 


101632 


TSFCOO 


007236 


TISEKO' 


• 010000 


T13L0O 


023464 


T16TS8 


037100 


SRO 


177572 


TSREJ • 


000006 


TISUBN- 


. 000000 


T13MEM 


024155 


T16T01 


057431 


SRI 


177574 


TSSDEF 


006606 


T*TAGL- 


i 177/77 


T13NBA 


024214 


T16T28 


037530 


SR2 


177576 


TSSR • 


000002 G 


TiTAGN 


• 010102 


T13PAC 


024040 


T16T53 


037630 


SRS 


• 172516 


TSSRBI 


003502 G 


TITEMP- 


• 000000 


T13RES 


024356 


T16T76 


037730 


SSR 


■ 000200 


TSSRfO 


006415 


WEST 


• 000014 


T13SSR 


024267 


T16UMX 


040142 


STATCO 


012412 


TSSRH • 


000003 G 


TITSTM 


• 177777 


T14BFR 


025176 


T162SS 


036767 


SVCGBL- 


. 000000 


TSSX 


004020 


TtTSTS 


• OOOOOi 


T14BS0 


025170 


T163SS 


037053 


SVCINS- 


■ 000000 


TSTBLK 


002752 G 


TMAU 


- 010031 


T14BSI 


025171 


T17BEN 


050362 


SVCSUB' 


. 000001 


TSTCNT 


002214 G 


TMAUT 


■ 010033 


T14BS2 


025172 


T17BFR 


050242 


SVCTAG« 


. 000000 


TSTENO 


016720 


TMCLE 


• 010034 


T140AT 


025170 


T17BFS 


050262 


SVCTST- 


. 000001 


TSTFLA 


002314 G 


TMDU 


■ 010032 


T14DTA 


025610 


T17CLE 


050146 


SILS*M« 


■ 010000 


TSTLOO 


016456 G 


TIIHAR 


- 010100 


T14L00 


024444 


T17CLR 


04 7760 


SO.IOB- 


* 000010 


TSTPTR 


002316 G 


TMMW 


- 010000 


T14NBA 


025622 


T17DAT 


050230 


SO.IFB 


■ 000002 


TSTSET 


016510 G 


TMINI 


■ 010030 


T14NIN 


026063 


T170T2 


050400 


SO.IFP 


■ 000001 


TSU2I 


030470 


TMMSG 


■ 010025 


T14PAC 


025160 


T17EXE 


046524 


SO.ILD 


. 000020 


TST13I 


02410? 


TMPRO 


• 010027 


T14PK2 


025600 


T17EXP 


046402 


SO. ION 


• 000040 


TST14I 


026241 


TIIRPT 


- 010035 


T14RES 


026306 


T17EXS 


046422 


SO.IRO 


• oocioo 


TSU5I 


034453 


TMSEG 


■ 010000 


T14RST 


026344 


T17L00 


040424 


SO.IRU 


• 000004 


TST16I 


036662 


TIISOF 


• 010101 


T14SSR 


025773 


T 1 7MSK 


046376 


SO. ISP 


• 000200 


TST17I 


046626 


TftlSRV 


• 010026 


T14TSB 


026155 


T17PAC 


050220 


SLICE 


■ 002000 


TST16I 


051216 


TMSUB 


• 010074 


T142RE 


025676 


T17PK2 


050370 


Sl.IEO 


• OlOOOO 


TST19I 


060202 


TMSU 


• 010001 


T15AM2 


034162 


T17RFI 


050126 


Sl.IFM 


■ 001000 


TST20I 


065202 


TMTES 


» 010077 


T15AM3 


03426 3 


T17RSF 


050024 


Sl.XMfc 


* 000400 


TST39I 


077652 


Ti 


023446 G 


T15AM4 


034365 


T17SET 


05016b 
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T17SNP 


050046 


T19SSR 


060243 


T3 


026420 G 


T39NBA 


077225 


WF.IED- 


OOO01O 


T17SRD 


050004 


T19WCT 


062142 


T3BFLG 


003150 G 


T39NE 


076523 


WF.IER- 


000004 


T17SSR 


046645 


T19WFI 


062106 


T3.1 


026446 


T39NFL 


076520 


UF.IHI- 


000200 


T17WFD 


046524 


T19UFM 


062162 


T3*2 


027006 


T390FF 


077515 


WF.IRE- 


000040 


T17WTI 


050072 


T19WST 


061543 


T3.3 


027276 


T390F2 


076764 


WF.IWF- 


000020 


T171CM 


047165 


T191CM 


060700 


T3.4 


027574 


T390N 


077524 


WF.IWR- 


000100 


T172CM 


047247 


T192CM 


060762 


T3AASC 


074461 


T390U2 


077030 


WF.I3R- 


0O0002 


T172SS 


046702 


T192SS 


060300 


T36ASN 


074500 


T39PAC 


075750 


WT.I4R- 


000001 


T173CM 


047343 


T193CM 


061056 


T38AS0 


074356 


T39PK2 


076450 


WRTCMR 


010662 G 


T173SS 


046746 


T193SS 


060344 


T38AS1 


074423 


T39PK3 


076500 


WRTERR 


005113 


T174CM 


047427 


T194SS 


060411 


T38BFR 


071506 


T39PK4 


076510 


WRTMSG 


005056 


T174SS 


047013 


T195CM 


061144 


T388S0 


071500 


T39RES 


077614 


WSMBK 


021270 G 


T175CM 


047512 


T195SS 


060454 


T388S1 


071501 


T39RL 


077610 


XFERAS 


015740 


T175SS 


047056 


T196CM 


061220 


T388S2 


071502 


T39SBS 


077443 


XNXM 


016376 


T176CM 


047566 


T196SS 


060520 


T38CNT 


074524 


T39SFS 


077371 


XORBFO 


007674 


T176SS 


047122 


T197CM 


061303 


T 380 AT 


074014 


T39SI2 


076516 


XORFOR 


010012 


T177CM 


047674 


T197SS 


060563 


T380LY 


071462 


T39SSR 


077301 


XSTO ■ 


000006 G 


TldBFR 


051722 


T19801 


061371 


T380SW 


072210 


T39TA0 


075760 


XST1 ■ 


000010 G 


T18CMP 


051423 


T198SS 


060632 


T380TA 


072200 


T39WPN 


077146 


XST2 - 


000012 G 


T18DAT 


051710 


T199CH 


061460 


T38EAI 


072206 


T39WR 


076512 


XST3 • 


000014 G 


T18DT2 


051760 


T2 


024426 G 


T36EB 


072162 


T39WRT 


077073 


XST4 - 


000016 G 


T18EXP 


051166 


T2.1 


024444 


T38I0 


073365 


T4 


032014 G 


XSOBOT- 


000002 


T18L00 


050526 


T2.2 


024714 


T38INT 


072756 


T4.1 


032044 


XSOEOT- 


000001 


TldHSK 


051162 


T20BEN 


066542 


T38MBP 


074054 


T4.2 


032350 


XSOIE - 


000040 


T18PAC 


051700 


T20BFR 


066422 


T38MSG 


073325 


T4.3 


032742 


XSOILA- 


000400 


T18PK2 


051750 


T20BFS 


066442 


T36MS1 


073166 


T40NE 


101275 


XSOILC" 


. 001000 


T18SET 


051570 


T20CLE 


066334 


T38M52 


073261 


T5 


034604 G 


XSOLET- 


. 020000 


T18SMI 


051546 


T20CLR 


066122 


T38HS3 


072325 


T5.1 


034622 


XSOHOT- 


■ 000200 


T18SR0 


051526 


T20CWP 


066027 


T38NBA 


072612 


T5.2 


035702 


XS0N6F. 


• 002000 


T18SSR 


051255 


T200AT 


066410 


T36NE 


072250 


T6 


040376 G 


XS00NL« 


• 0O0100 


T18XS 


051212 


T200T2 


066560 


T380FL 


073042 


T6.1 


040424 


XSOPED- 


• 000010 


U82SS 


051312 


T20EXE 


065202 


T380NL 


073006 


T6.2 


040714 


XSORLL« 


> 010000 


~183SS 


051356 


T20CXP 


065062 


T38PAC 


071470 


T6.3 


042124 


XSORLS- 


■ 040000 


T19BEN 


062472 


T20CXS 


065102 


T38PK2 


072170 


T6.4 


043464 


XS0T^« 


• 100000 


T196FC 


060016 


T20L00 


062634 


T38PK3 


072220 


T6.5 


044042 


XSOVCK- 


. 000020 


T196FR 


062352 


T20HSK 


065056 


T38PK4 


072240 


T6,6 


045314 


XSOWLE- 


• 0O4000 


T196FS 


062372 


T20PAC 


066400 


T38RES 


074016 


T7 


050510 G 


XSOWLK 


• 000004 


T19CLE 


062220 


T20PK2 


066550 


T38SIJ 


072246 


T8 


051770 G 


XXCOMM 


003122 G 


T19CLR 


061754 


T20RFI 


C66206 


T38SSR 


072666 


T8.1 


052006 


XIALUA 


• 000000 


T19CNV 


062264 


T20RSF 


J65726 


T38SST 


073076 


T8.2 


054006 


XIFALS 


• 000040 


T190AT 


062340 


T20SET 


066354 


T38TAO 


071500 


T8.3 


055274 


XIOFFS 


• 000400 


T190T2 


062510 


T20SF* 


066316 


T38WLE 


072545 


T8.4 


056544 


XI TRUE 


• 000020 


T19EXE 


060202 


T2GSM) 


066146 


T38WR 


072242 


T9 


062616 G 


XI. COR 


• 020000 


T19EXP 


060062 


T20SSR 


065231 


T36WRL 


072504 


T9.1 


062634 


Xl.OLT 


• 100000 


T19EX5 


060102 


T20SWP 


065617 


T38WRT 


072420 


UAM « 


000200 G 


X1.MB2 


• 017375 


U9L00 


052006 


T20WFI 


066226 


T396FR 


075766 


UNITN 


002202 G 


Xl.RBP 


• 000400 


T19MSK 


060056 


T20UFM 


066262 


T396S0 


075760 


UNREC - 


000006 


XI. SPA 


• 040000 


T19PAC 


062330 


T20WMI 


066302 


T396S1 


075761 


US I 


004123 


Xl.UNC 


• 000002 


T19PK2 


062500 


T20WNP 


066166 


T396S2 


075762 


UAITF 


016250 G 


X2.BUF 


• 000100 


U9PRE 


060014 


1 202SS 


065266 


T390AT 


077612 


WC.IFA< 


000200 


X2.EXT 


• 000200 


U9RFI 


062066 


T2035S 


065332 


T390LY 


075744 


WC.IFE- 


000002 


X2.0PM 


• 100000 


T19RSF 


062020 


T204SS 


065377 


T390SW 


0764 70 


WCIGO* 


» 000001 


X2.RCE 


• 040000 


T19R5T 


061650 


T205SS 


065442 


T390TA 


076460 


WC.IRE* 


. 000010 


X2.REV 


- 000077 


T19SET 


062240 


T206SS 


0C5506 


T39EAI 


076466 


UC.IRU- 


• 000004 


X2.SPA 


035400 


T19SEX 


062202 


T208S5 


065^51 


T39ETN 


076671 


WC.IOT- 


• 000100 


X2»UNI 


- 000007 


U9SNP 


062042 


T23A 


003144 G 


T39ETS 


076602 


WC.UT 


• 000040 


X2.WCF 


- 002000 


U9SRD 


063000 


T238 


003146 G 


T39MCL 


077533 


WC»I5R« 


> 000020 


X3*DCK 


* 0000 to 



U4 
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X3.REV- 000040 
X3.RIB- 000001 
X3,SPA» 000200 



X3.TRF- 000020 
X4 t HSP- 100000 



X3.MBZ- 000006 
X3,MDE- 177400 
X3,0PI» 000100 

. ABS. 102004 000 
000000 001 
ERRORS DETECTED: 

VIRTUAL MEMORY USED: 31032 WORDS ( 122 PAGES) 

DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) 

ELAPSED TIME: 00:49:10 

CVTSBBO , CVTSBBO , SEQ/ -SP»SVC/ML , TSV1B , TSV22B . TSV3B , TSV4 , TSV55B . TSV6 



SEQ 249 



X4.K8Z- 017400 
X4.RCE- 040000 



X4.TSM< 
X4.WRC' 



020000 
000377 



TEST 9: READ/WRITE . . .,B1 

TEST 9; READ/WRITE CI 

TEST 9: READ/WRITE 01 

TEST 9: READ/WRITE El 

TEST 9; READ/WRITE . % „F1 

TEST 9: REAO/WRITE Gl 

TEST 9; REAO/WRITE HI 

TEST 9: READ/WRITE ....II 

TEST 9; REAO/WRITE . ...Jl 

TEST 10: MANUAL INTE....K1 

TEST 10: MANUAL INTE....L1 

TEST 10; MANUAL INTE Ml 

TEST 10: MANUAL INTE Nl 



TEST 


10: 


MANUAL INTE.. 


. .B2 


TEST 


10: 


MANUAL INTE.. 


..C2 


TEST 


10: 


MANUAL INTE.. 


..02 


TEST 


10: 


MANUAL INTE.. 


. .E2 


TEST 


10: 


MANUAL INTE.. 


. .F2 


TEST 


10: 


MANUAL INTE.. 


..62 


TEST 


10: 


MANUAL INTE.. 


..H2 


TEST 


10: 


MANUAL INTE.. 


..12 


TEST 


10: 


MANUAL INTE.. 


..J2 


TEST 


10; 


MANUAL INTE.. 


. .K2 


TEST 


10: 


MANUAL INTE.. 


..L2 


TEST 


11: 


CONFIGURATI.. 


..M2 


TEST 


11: 


CONFIGURATI.. 


..N2 



TEST 11: CONFIGURATI B3 

TEST 11: CONFIGURATI C3 

TEST 11: CONFIGURATI D3 

TEST 11: CONFIGURATI E3 

TEST 11: COTIGURATI F3 

TEST 12: SCOPE LOOPS G3 

TEST 12: SCOPE LOOPS H3 

TEST 12: SCOPE LOOPS 13 

TEST 12: SCOPE LOOPS J3 

TEST 12: SCOPE LOOPS K3 

SOFTWARE PARAMETER C L3 

SYMBOL TABLE . ...M3 
SYMBOL TABLE . . . .N3 



SYMBOL TABLE B4 

SYMBOL TABLE C4 

SYMBOL TABLE .,..04 



